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Preface 



The personal computer field was already brimming with excitement when 
the Commodore PET® entered the scene in late 1977. A minimum PET system, 
housed in a self-contained unit with custom keyboard, video display, and tape 
cassette, cost just $595. 

The PET was an immediate sales success. Many thousands of units have 
been sold, and PET user groups are springing up all over. 

The PET has surely become famous as one of the first popular personal com- 
puters. It has also become widely known — indeed infamous — as having the 
most meager literature a user has ever had to face. That is why this book has been 
written. 

After reading this book you will have a good understanding of what a per- 
sonal computer — especially the PET — can be expected to do for you. Certainly 
as important as knowing what you can do with a personal computer is knowing 
what you can't do. By examining the capabilities and limitations of the PET, you 
will have a grasp of what you can realistically expect a personal computer to do 
for you — which is important if you have a personal computer, or you are thinking 
of getting one. 

There are numerous programming examples throughout this book; by 
reproducing these examples you will quickly get your PET working. These exam- 
ples are thoroughly described and documented so you can learn how and why the 
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programs work. It is the "how" and the "why" that are important if you want to 
learn how to make your PET work efficiently for you. 

This book is a complete guide to the use of the PET computer. 
Chapter 1 is a general introduction to the personal computer and BASIC 
language. 

Chapter 2 describes how to operate the PET keyboard, display screen, and 
magnetic tape cassette unit; it also describes rudimentary troubleshooting tech- 
niques. 

Chapter 3 introduces you to BASIC, the programming language of the PET. 
Chapter 4 is an alphabetical reference of PET BASIC commands, statements, 
and functions. 

Chapter 5 describes "features" and programming quirks of the PET — and 
how to get around limitations of PET BASIC. You will find this chapter highly 
useful in understanding your PET and how to really go about programming it. 

Chapter 6 contains useful system information and describes such tech- 
niques as how to execute assembly language programs under PET BASIC. 

A summary of reference material is contained in appendices to the book. 

The chapters are divided, roughly, into three technical levels, as follows: 

1 . If you are a novice who wishes to use pre-written programs, you can get 
by with the loading and editing techniques described in Chapter 2. 

If you find using the PET to be a lot of fun at this stage, and you 
want to learn more about computers, a recommended book is An 
Introduction to Microcomputers: Volume — The Beginner's Book, 
Osborne/McGraw-Hill, 2nd Edition, 1979. 

2. If you are a beginning programmer, and you want to write your own pro- 
grams in PET BASIC, then Chapter 3 will get you started. In addition, 
detailed descriptions of individual BASIC statements are given in 
Chapter 4. 

3. You will probably find that your programs occasionally do odd things. 
These peculiarities are accounted for in Chapter 5 — necessary reading 
for the advanced programmer. In Chapter 5 you will find coverage of 
topics such as Extended Precision Arithmetic and File I/O. The system 
information in Chapter 6 is written for experienced programmers who 
need to know about PET's memory layout, for example, so you can write 
assembly language subroutines to be run under PET BASIC. 

Interfacing the PET to external devices is such a large topic in itself that a 
separate book is devoted to it. This Personal Computer Guide concerns itself only 
with the PET keyboard, display screen, and magnetic tape cassette unit, the latter 
either built-in or provided externally. See the references listed in Appendix E for 
sources of interfacing information on other peripheral input/output devices 
available for the PET. 
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"There's a new PET in the House" 
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CHAPTER 1 



Introducing the PET 



The Commodore PET is a low-cost personal computer housed in a self- 
contained unit, with keyboard, video display screen, and built-in or external mag- 
netic tape cassette unit. The PET is portable and can sit on a desk or tabletop. 
Moreover, the PET operates on normal household current and uses high quality, 
but still inexpensive, magnetic tape cassettes to store information in a computer- 
readable form. The PET is powered up simply by plugging it in and turning it on. 

COMMUNICATING WITH THE PET 

Whenever you power up the PET, you activate its BASIC* "in- 
terpreter." The BASIC interpreter is a computer program that is permanently 
built into every PET. The PET BASIC interpreter carries out orders you give it by 
typing in commands at the PET keyboard. It allows you to start programming your 
PET as soon as you turn the power on. 

You can command the PET to load a program from a tape cassette, list the 
program, execute the program, and perform a number of related chores. You can 
also type in your own programs at the PET keyboard, edit them, run them, and 
store them on tape cassettes. 

'BASIC is a registered tradennarl< of the Trustees of Dartmouth College. 
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ROM AND RAM 



The BASIC interpreter is held in a type of memory called "Read-Only 
Memory" (otherwise known as ROM). ROM will keep its information 
forever, whether electric power is turned on or off. Read-Only Memory, and 
the information it holds, thus becomes a permanent part of your PET's electronics. 




In contrast, a program loaded from a tape cassette, or input from the 
keyboard, is placed into Read/Write Memory (otherwise known as RAM). 
Any information stored in RAM is lost when the PET's power is turned off. 

That is why you need a cassette unit (or similar device) to store programs that you 
want to keep and use again and again. 
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BASIC PROGRAMMING 



A host of pre-written programs is available on tape cassettes that you 
can load into memory and execute simply by pressing a couple of keys on the 
PET. Some of the programs that you can get are listed below. Some sources of 
pre-written PET programs are listed in Appendix E. 



In addition to buying programs, you can also write your own programs 
in the BASIC language, to be developed and executed on the PET. 

"BASIC", Beginners All-purpose Symbolic Instruction Code, was developed 
at Dartmouth College in 1963. It is one of the most popular computer languages, 
particularly favored by beginning programmers because it is easy to learn and 
easy to use. PET BASIC is a variation of Dartmouth BASIC. 

A word of caution here; if you have never programmed before, do not be 
misled into thinking that with your personal computer you will have your menus, 
personal calendar, Esperanto concordance, and FBI agent file all safely stored and 
working in a few hours! There are real limitations to the PET — or any personal 
computer — as this book points out. Even with the best of languages and the 
most expensive of systems, writing useful, error-free programs is a real challenge. 
But if you have a bent for programming, and you will have a good idea whether 
you do or not after reading this book, you will find writing your own programs for 
the PET to be an exciting, rewarding pastime. 

PET MODELS 

The first PETs were available with a compact, custom graphics keyboard 
and built-in tape cassette unit, as shown in Figure 1-1a. Additional PET models 
are now available that have full-size keyboards. The tradeoff for these full-size 
keyboards is that the tape cassette unit must be connected externally. The full- 
size "graphics" keyboard is shown in Figure 1-1b. The CBM (Commodore Busi- 
ness Machine), a PET that has a full complement of small-business programs, and 
that also functions as a word processor, is shown in Figure 1-1c. 
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a. PET with compact graphics l<eyboard 





c. CBM, or Business PET 



4 



Figure 1-1. Three Models of the Commodore PET 



FEATURES 



All PET models are housed in very similar cabinets and have a similar set of 
specifications, as listed in Appendix H. The only differences that you need to be 
concerned with in using this book are: 

1 . Whether your PET has the original ROMs, also called "old" ROMs, which 
are Revision Level 2; or the newer ROMs, which are Revision Level 3. 

The newer ROMs eliminate problems that were encountered with the original 
ROMs. 

You have Revision 2 ROMs if your PET powers up with the first line printed as; 

***COMMODORE BASIC*** 

You have Revision 3 ROMs if your PET powers up with the first line printed as: 

###COMMODORE BASIC### 

If you have the old ROMs, read carefully Appendix G, "Variations for Original 
ROMs (Revision Level 2)." This appendix delineates every change you will 
have to make, chapter by chapter, to use this book with the old ROMs. The 
changes are not extensive. The rest of this book assumes that you have the 
newer ROMs. 

2 Whether your PET has the compact keyboard or one of the full-size 
keyboards. This book is written for all PET keyboards, and differences, where 
they exist, are clearly spelled out. 

3. How much memory your PET has. Your PET may have 4K, 8K, 16K, or 32K 
bytes of memory. This is Read/Write Memory (RAM): all PETs have the same 
amount of Read-Only Memory (ROM). A "K" is, roughly, one thousand. A 
"byte" is the standard unit of memory storage in the PET: each byte can hold 
one character of data. 

The more memory your PET has, the longer the programs and the larger 
the amounts of data it can handle at one time. However, this is not an opera- 
tional difference and is not important in learning how to use the PET. You only 
need to be aware of the memory size for the few references to the "top of memo- 
ry," whose value will depend on how much RAM is implemented in your PET. 
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CHAPTER 2 



Operating the PET 



This chapter tells you how to operate the PET keyboard, use the screen dis- 
play, and work with the nnagnetic tape cassette drive. After reading this chapter, 
you will be able to load and use pre-written PET programs stored on tape 
cassettes. 

The primary external features of the PET are shown in Figures 2-1 and 2-2. 
The Model 2001-8 in Figure 2-1 a has a compact keyboard and built-in tape 
cassette unit. The 2001-16, 2001-32, and CBM models have front panels as 
shown in Figure 2-1 b with a full size keyboard and separate tape cassette unit. 
The back view is the same for all units and is shown in Figure 2-2. 

UNPACKING 

Assuming you have just brought your PET home in a box, you must unpack 
it. The PET is packed in protective material, inside a heavy-duty cardboard box. In- 
spect the box for any evidence of shipping damage. Carefully open the box and 
remove the PET. Place the PET on a sturdy, level surface such as a table or desk 
top. Inspect the unit for any evidence of shipping damage. Report any apparent 
damage to the shipping agent, or to the dealer from whom you purchased the 
PET. Read any special material enclosed in the box; be sure to complete the war- 
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a. Compact 
Keyboard PET 



Cassette Tape' 
Drive 




Controls 



Figure 2-1 a. Front View of Compact Keyboard PET 

ranty information. Save the box and packing material — you may need to ship 
your PET bacl< to the factory for repairs at some time, or transport it to other loca- 
tions. 

CASSETTE HOOKUP 

On full size keyboard PETs, the cassette tape unit is separate and must 
be connected to the PET unit. Unpack the cassette unit and place it on the desk 
or table top within easy reach of the PET. The cassette unit terminal plug is tailor- 
made to fit the PET cassette port (2nd Cassette Interface J3 as shown in Figure 
2-2). Connect the plug to J3 on the PET. securely seating it. 
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b. Full Size Keyboard PET 




Tape 
Controls 



KEYTOP FILM COVERING 

On a new PET with a compact keyboard, each key is covered with a protec- 
tive plastic film which you must remove before using the keyboard. It is recom- 
mended that this film be removed by pressing a piece of masking tape over each 
key, sticky side down. Then lift up the masking tape, bringing the plastic film off 
the key with the tape. The keytop lettering can be scratched off, so be careful. 

You can protect the keytops so that letters are not erased by applying a coat 
of clear nail polish or similar protective coating to the keytops. 

This procedure is not required on the full size keyboard. 
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J1 IEEE-488 3-Wire AC 

Interface Power Cord 



Figure 2-2. Back View of PET 

STARTUP 

1. Plug the PET in. Plug the three-prong power plug into a standard 
grounded electrical outlet. DO NOT ATTEMPT TO PLUG THE CORD 
INTO A TWO-HOLE (UNGROUNDED) OUTLET. DO NOT ATTEMPT TO 
REMOVE THE GROUND PRONG. If the unit is not properly grounded, 
you may receive an electrical shock. Grounding adapters that convert a 
two-prong outlet into a three-prong (grounded) outlet are available fronn 
your hardware store or electrical supply house. 

CAUTION: Do not use a three-prong adapter unless you ground it 
properly when installing it. 

2. Switch power on. The power switch is located on the back of the PET, 
at the left side (see Figure 2-2). It is a two-position "rocker" switch. 
Pressing on the outer side of the switch turns power on; pressing the in- 
ner side of the switch turns power off. A white dot shows on the side of 
the switch when power is on. 
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3. Wait for READY display. About three seconds after switching power 
on, the following message is displayed on the screen: 
### COMMOIiORE basic: ### 

KXXX EVTES FREE 
RERDV. 

The four lines of display have the following meanings; 

###COMMODORE BASIC### This line indicates that the PET BASIC in- 
terpreter has been activated. 

XXXX BYTES FREE This line shows how much memory is avail- 

able to you. 

3071 (or a similar number) will be displayed 
for a 4K PET system. 

7167 (or a similar number) will be displayed 
for an 8K PET system. 

15359 (or a similar number) for a 16K PET 
system. 

31743 (or a similar number) for a 32K PET 
system. 

READY. The PET is ready to receive input from the 

keyboard. 

^ The flashing cursor is displayed at the position 

on the screen where the next character typed 
in from the keyboard will appear. The cursor 
must be present in order to enter commands 
from the keyboard. 

If you do not get the display illustrated above after turning power on, then 
turn power off, wait a few seconds, and turn power back on. The display will first 
be filled with random characters for a second or so. This is normal; just ignore it. 
The random character display will appear whenever the PET is turned off and then 
on again within about ten seconds. 

KEYBOARD 

The PET keyboard is used to enter programs and commands. The type of 

keyboard depends on which model PET you have. The same i<eys are present on 
both compact and full size l<eyboards, with the exception that the full size 
keyboard has a shift lock key. However, the locations of some of the keys are 
different. 



The keyboard layouts are introduced separately below, followed by a com- 
mon description of the individual keys. If you have the full size keyboard, read the 
description below and then skip to the section titled "PET Key Groups." If you 
have the compact keyboard, skip the next section and begin reading at the sec- 
tion titled "Compact Keyboard." 

Full Size Keyboard 

The full size "graphics" keyboard is illustrated in Figure 2-3. The CBM 
keyboard is very similar in layout, but the graphic symbols are not printed on the 
keys. If you have a CBM, use Figure 2-3 and Table 2-2 to locate graphic symbols 
on the CBM keyboard. 











HOME 




CRsn 


[inst] 
[delJ 


1 ] 




(w 


IS 


]® 


® 


a®® 


)® 


® 


®®f^ 




a 


® 


® 





( shift) 

[ LOCK j 


[A 


[s 








® 


]® 


J® 


]® 




[nun 

)ST0 


RETURN 




s 


® 


® 


□ 


1 SHIFT j 


z] 




® 


M] 


®00 


SHIFT j 


a 




® 


s 




1 1 




□ 


B 


a 



Figure 2-3. Full Size PET Keyboard 



The keyboard consists of 74 keys, most of which have an upper shift and a 
lower shift. Two symbols or operations are shown on the same key. Most of the 
upper shift symbols are graphic keys. For these keys, the larger top imprint is for 
unshifted mode, and the graphic symbol is shown on the front side of the key. For 
non-graphic keys both operations are shown on the top imprint, the upper one 
being for shifted mode and the lower one for unshifted mode. SHIFT, SHIFT LOCK, 
the SPACE bar, and RETURN are exceptions. 

The letters are arranged like those of a typewriter and, to the right, the num- 
bers are organized into a numeric pad similar to that of an adding machine or 
calculator. (The number "5" on the CBM has a raised dot to locate it by finger 
touch.) Those familiar with a typewriter keyboard should feel comfortable with 
this full size PET keyboard. Where possible, the special symbols are placed where 
they normally reside on a typewriter keyboard. 

One feature of the PET keyboard is that the letters (A-Z), numbers (0-9), and 
special symbols (*, %, #, etc.) are all typed in unshifted mode. These frequently 
used characters are thus readily accessible. 
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The PET has two character sets. The "standard" character set has 
capital (upper case) letters typed in unshifted mode, and the shifted mode 
prints the graphic characters. The "alternate" character set gives upper and 
lower case letters but eliminates some graphic characters. If you have the 
graphics keyboard, the standard character set is active whenever the PET is 
powered up. If you have the CBM, however, the alternate character set is ac- 
tive on power-up. The selection of standard or alternate character set is deter- 
mined by the value contained in a particular system location that you can change. 
This feature is described in detail in Chapter 5. For now, if you have the CBM, type 
in the following statement: 

POKE 59468,12 

This activates the character set with graphics on CBM units. Unless stated 
otherwise, this book assumes that the graphics character set is being used. 

In the following key descriptions, and throughout this book, individual keys 
from the keyboard are illustrated. To avoid confusion, we have used keys from just 
one type of keyboard — the compact keyboard. You will find these keys virtually 
identical to the legends on the full size keys. Thus you should have no trouble 
recognizing which key is intended on your full size keyboard when you see the 
corresponding key from the compact keyboard. 

Compact Keyboard 

The compact keyboard is illustrated in Figure 2-4. 
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The compact keyboard consists of 73 keys, most of which have an upper shift and 
a lower shift. Two symbols or operations are shown on the same key; the top one 
is for the shifted mode and the lower one is for the unshifted mode. SHIFT, 
SPACE, and RETURN are the exceptions. 

The letters are arranged like those of a typewriter. To the right, numbers are 
organized into a numeric pad similar to that of an adding machine or a calculator. 
For those familiar with a typewriter keyboard, there are some real differences be- 
tween the typewriter keyboard and the compact PET keyboard.: 

1. This PET keyboard is more compact than a standard keyboard. Because 
of this, as well as the need to frequently access the numeric pad keys, 
you will find it difficult to "touch type" on the compact PET keyboard. 

2. The standard character set has upper case letters only: they are typed in 
unshifted mode. The PET keyboard is arranged so that all letters, num- 
bers, and special characters (-t-, -, %, etc.) are typed in unshifted mode 
so that these most frequently used characters are readily accessible. 

3. There is no shift lock on the PET shift keys. To type upper case charac- 
ters or controls, you need to hold down the shift key, while at the same 
time pressing the desired character or control key. 

KEYBOARD ENTRY 

Before proceeding with the individual key descriptions, we digress here for a 
moment to introduce several important concepts related to keyboard entry. 

Perhaps the major difference between a PET keyboard and a typewriter 
keyboard results from the presence of the BASIC interpreter within the PET. 
The BASIC interpreter can process the same keystroke in completely 
different ways depending on the context of the keystroke. 

When you press a typewriter key, you type a character — nothing more and 
nothing less. Under the correct circumstances, the PET, like a typewriter, will in- 
terpret a keystroke as one character of text. We refer to such text as a "string," 
because to the PET it is a string of text characters. 



14 



Variables 

Under some circumstances the BASIC interpreter will treat a keystroke as 
part of a BASIC statement. Or the keystroke may become part of a "symbol" or 
variable name. We use the word "syntax" to describe the rules governing the 
form that BASIC statements must have and the way characters within the BASIC 
statement will be interpreted. 

77 is a "symbol"; it represents the value 3.14159265, the circumference of a 
circle divided by its radius. 

The concept of a "symbol" or "variable" is fundamental to all computer pro- 
grams, whether they are written in BASIC or in any other programming language. 
You create variable names by grouping letters and/or other characters, according 
to specified rules. Each variable becomes an entity, capable of representing infor- 
mation. The information may be a number or a word of text. You may liken varia- 
bles to letter boxes, each of which has a name, but can contain whatever you 
choose to put into it 

The information represented by a variable name may be a string of text, an 
integer, or a floating point (real) number. If the last character of the variable name 
is %, the variable can represent only integers. If the last character of the label is $, 
the label can represent only strings. If the last character of the label is neither % 
nor $, then the label can represent only floating point numbers. 

Until a program assigns a value to a variable name, the variable is assumed 
to have a value of for a number, or no characters at all for a string. 

PET KEY GROUPS 

The PET keys can be divided into the following groups: 

• Alphabetic keys 

• Numeric keys 

• Special symbols 

• Graphic keys 

• Function keys 

• Cursor control keys 
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Alphabetic Keys 
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The alphabetic keys provide the 26 letters of the alphabet, A to Z. These are 
upper case (capital) letters when used with full graphics. A lower case alphabet is 
available with the alternate character set (see Chapter 5). 



Numeric Keys 



CLR 


A 


<= 
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The numeric keys provide the digits 0, 1, 2, 3, 4, 5, 6, 7, 8, and 9. All num- 
bers input to PET BASIC are decimal numbers (the kind you use every day) such 
as 3, -14, 10.5. 

The 77 key (upper shift of '^^ ) could also be considered a numeric key (or a 
special symbol), but since it represents a multidigit number and has some special 
characteristics, it is described below under function keys. 
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Special Symbols 
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Special symbols, or special characters, have two general uses; 

1. They may represent standard punctuation marks or commonly used 
symbols. For example, there is a period, a comma, arithmetic opera- 
tions (+ for addition, - for subtraction, etc.), and other characters that 
have widely recognized interpretations, such as "$" for dollar sign. 

2. These same characters may at other times represent a specific opera- 
tion or be part of a BASIC statement. Remember, we use the word 
"syntax" to describe the special rules governing the characters that 
must appear in a BASIC statement and the order in which they must ap- 
pear. 

Thus, the same symbol means different things when used in different 
contexts. Some English words, called homonyms, also have this property. For ex- 
ample, pool can be a pool of water or a game of pool. 

Consider the following PET BASIC statement: 

IF A = 1 THEN B=2 

This BASIC statement uses the equal sign (=) twice, apparently with the 
same meaning in each case. But these two equal signs actually mean different 
things to PET BASIC. The first equal sign, in the phrase IF A=1, has a standard 
meaning of equality; PET BASIC must determine whether A has the current value 
of 1. In the second phrase, THEN 8=2, however, the equal sign in interpreted as 
"assign B the value of 2, regardless of what its current value is." These equal 
signs are called "program operators." A program operator is a special symbol that 
tells PET BASIC to perform a certain operation. 

Note that "A" and "B" have been used as variables; each is a "name" 
assigned to a "letter box." The BASIC statement above checks to see if letter box 
"A" contains 1; if it does, 2 gets put into letter box "B". 
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Special symbols can also be used as data characters, just like letters of 
the alphabet. Consider the following examples: 

Statement 1: PRINT "HI FRED, MARY, AND AL" 
Statement 2: PRINT FR, MA, AL 

In the first statement, the commas are ordinary punctuation marks; they are 
data characters just like all the letters (and spaces) inside the quotation marks. In 
fact, every character occurring between the quotation marks is a simple text 
character, which the BASIC interpreter treats as a text string, just as a typewriter 
would treat a keystroke. In statement 2, however, the commas are program opera- 
tors; they are telling PET BASIC to use a special form of tabular alignment when 
printing out values assigned to variables FR, MA, and AL. 

Table 2-1 summarizes the meanings of the special symbols when they 
are used as program operators. These usages are described in detail in Chapter 
3. 

Some of the special symbols do not have a program operator function. Such 
symbols are merely graphic characters; they are used to create pictures on the 
display screen. Some program operators are formed by combining special sym- 
bols and/or letters of the alphabet just as you combine letters into words. We will 
describe these program operators later. 

Special symbols and letters of the alphabet can have different meanings, de- 
pending on where they appear in a BASIC statement. The word PRINT, for exam- 
ple, is the part of a BASIC statement that tells the PET to print something. If the 
same word were enclosed in quotes, it would be interpreted as a word of text. 
Consider the at-first confusing statement: 

PRINT "PRINT" 

The first PRINT is a command to print, but the second PRINT is a word of 
text, or a string, because it is enclosed in quotes. What would this statement do? 
You have probably already guessed — it would print the word PRINT. (The 
shaded portions in the screen examples show what you type in; the 
unshaded portion is the PET's response): 

PRINT "PR I NT" 
PRINT 

PET BASIC doesn't just have homonyms — the same word having different 
meanings; it also has synonyms — different words that have the same meaning. 
For example, the command PRINT can be abbreviated to a question mark. 

?"PRINT" 
PRINT 



W 



Table 2-1. Special Symbols as Program Operators 



Symbol 


Description 


Program Operator Use 


Example 




Space 


To improve program legibility; dis- 
regarded by PET BASIC except in 
strings 


100 READ Y 
I I 


! 


Exclamation mark 


(none) 






Double quotation mark 


Begins and ends a string 


"STRING" 


# 


Pound sign 


(none) 




$ 


Dollar sign 


Denotes string variable 


C$ 


% 


Percent sign 


Denotes integer variable 


C% 


at 


rAll l|Joi oai l\J 


(none) 








(nnnp) 
\l lUI tc/ 




1 \ 
\ } 


roiCi iLi icoc<>3 


1. Enclose array subscripts 

2. Enclose function arguments 

3. Denote expression 
evaluation precedence 


AR(1,5) 

SQR(114) 

((A-f2)/5)T2 


• 


Asterisk 


Multiplication 


4*16 


+ 


Plus sign 


Addition, positive number 


2-1-2 -1-57 




Comma 


1. Separates items in a list 

2. Denotes tabbed format 


READ A,d,C 
PRINT X,Y,Z 


— 


Minus sign 


Subtraction, negative number 


14-6 -32 




Period 


Decimal point 


65.02 


/ 


Slash 


Division 


14/2 




Colon 


Separates multiple statements 
on a line 


PRINT A:GOTO 10 




Semicolon 


Denotes continuous-line format 


PRINT A:B:C 


< 


Left carat 


Less than 


A<100 


= 


Equal sign 


1. Equal to 

2. Replaces 


IF A=B 
C=600 


> 


Right carat 


Greater than 


C>D 


7 


Question mark 


Abbreviation for PRINT 


?"HI!" 


@ 


At sign 


(none) 




[] 


Brackets 


(none) 




\ 


Backslash 


(none) 




I 


Up arrow 


Exponentiation 


At2 




Left arrow 


(none) 
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Graphic Keys 

The PET keyboard contains 62 graphic keys. All are the shifted mode of data 
keys. With so many graphic characters available on the PET. you can create some 
rather sophisticated display drawings. 




The graphic characters are listed in Table 2-2; each Is given a name 
They are grouped by similarity of line, so that you can get some idea of the sets of 
design components available when creating graphic displays. The entire key is 
shown in the table to help you locate keys. Note that the square enclosing the 
graphic symbol is not part of the symbol; it is used merely to show the sym- 
bol's location within a grid space. 
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Table 2-2. Graphic Character Keys 



Line 
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Function Keys 
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SHIFT. The SHIFT key is pressed simultaneously with any of the other 
keys to give the shifted character of that key. All PET keys have different 
characters for shifted and unshlfted modes, except the SPACE and RETURN keys. 
The SPACE key generates a blank or space in either nnode. The RETURN key pro- 
vides a carriage return in either nnode. On all two-character keys, the lower synn- 
bol is the unshifted one and the upper synnbol is the shifted one. 

There are two identical SHIFT keys located on the main keyboard, one at the 
lower left and one at the lower right. 

SHIFT LOCK (full size keyboard only). Full size PET keyboards have a SHIFT 
LOCK key located directly above the left-hand SHIFT key. Pressing the SHIFT 
LOCK key until it "clicks" into place holds SHIFT down so that both hands are free 
to type in shifted mode. To release the SHIFT LOCK key, press and release the 
SHIFT LOCK key; both SHIFT keys return up to their unshifted position. 

RETURN. The RETURN key is the equivalent of a carriage return on a 
typewriter; when depressed, it causes the cursor to move to the beginning of 
the next line on the screen. 

When you enter a BASIC statement, the statement line can have up to 40 
characters (one display line) or up to 80 characters (two display lines). When you 
are first entering a statement line, you type in the characters and terminate the 
line by pressing the RETURN key. If you type in 40 or more characters without 
pressing RETURN, the cursor automatically drops down to the next display line, 
and you can continue entering up to 80 characters. If you continue typing onto a 
third line, however, the PET will give you a SYNTAX ERROR as soon as you press 
RETURN. 

You must depress the RETURN key in order to terminate every line of 
BASIC input. The PET uses the RETURN character as a signal that the current line 
is complete and ready to analyze. The "current" line is defined as the line on 
which the cursor is located, regardless of how many lines may be displayed on 
the screen. 



22 



A RETURN given anywhere on the last line of the screen causes all of 
the screen text to move, or scroll, up one line. The top line rolls up off the 
screen and a blank line rolls into the bottom line of the screen, with the cursor left 
at the beginning of the blank line. 



Before RETURN 



Line 

1 
2 



24 
25 



10 ?"HOW IS THE TIME" 

20 ?"FOR fiLL GOOD PEOPLE" 

30 READ y.2 



-Top 



After RETURN 

line scrolled off screen 



FOR- ALL GOOD PEOPLE" 
30 REFID X£ 



at' H=E+C-D 

lee IF ft=i GOTO lei 



Cursor 




90 fl=E+C-ri 
100 IF fl=l GOTO 10 



Cursor 
Blank line scrolled in 



PI (tt). Pi (tt) is a circle's circumference divided by its diameter, tt has its 
own key on the PET computer. When this symbol is used, alone or in an expres- 
sion, PET replaces it with the value 3.14159265. 

?1T 

.3. 14159265 

The only time tt is not evaluated as its preassigned number is when it ap- 
pears within quotation marks. Then it is treated as a graphic character — a part of 
a string. 



REVERSE ON/OFF. The Reverse key allows you to reverse the black 
and white parts of characters; REVERSE is like a photograph and its nega- 
tive. The normal mode of this key is "off." To activate the REVERSE key, press it in 
unshifted mode. The next character keys you press will be displayed in reverse 
field. REVERSE ON stays in effect until you either press REVERSE OFF (the 
REVERSE key shifted) or press the RETURN key. 

FtBC'!ia«fiEC 

t, 



RVS ON J 1 I RVS OFF 



Note: Reverse field terminated 
by carriage return 
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You can also program the REVERSE key inside quotation marks. In this case, 
the reverse field is not shown until the display is printed. 

RVS ON RVS OFF 

I I 

?"flECa=lBCaREC" 

The REVERSE key has another function unrelated to reverse 
fields: depressing the REVERSE key during rapid scrolling slows down the scroll 
speed. 

RUN/STOP. STOP is the unshifted half of the RUN/STOP key. STOP stops 
execution of any current operation and puts you back in touch with PET BASIC, 
reconnecting it with the keyboard. 

.-OR 1 = 1 TO 100 ? I HE.XT I 
1 

4 
5 
6 



10 

1 1 

12 
13 
14 

1 5 Press STOP key 

BREAK 
REfiDV. 
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If you stop a program in mid-execution, you will get a message telling you 
where in the program you stopped. "Where" becomes a number which identifies 
the last BASIC statement that was executed. This may be illustrated as follows: 



lee FOR 1^1 TO 100 

110 ?i 
1.20 MEXT I 
RUN 
I 



10 

1 1 

1 2 -« Press STOP key 

BREAK IN 110 
RERDV. 

The STOP key does nothing if there is nothing to stop, i.e., the PET is 
READY. 

RUN is the shifted half of the RUN/STOP key. RUN causes the next pro- 
gram on the cassette unit to be located, loaded into memory, and then im- 
mediately executed. The display below shows what you will see if you "RUN" 
the small program illustrated above. 

RERDV . 



- Press RUN key. Cursor is replaced by: 



LORD 



PRESS PLRV OH TRPE #1-" Press PLAY 

OK 

SEARCHING 
FOUND 

PROGRAM 1 TO 10 
1 



■ Running program printout 



■ STOP or RUN here causes a break 



BREAK IN 110 
RERDV. 
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To perform its "load & go" function, RUN must be pressed when the 
PET is READY; if it is pressed while another program is executing, it acts like 
a STOP. Using the RUN key is a quick way of running the next program stored on 
the cassette you have in the PET cassette drive. 



Cursor Control Keys 

The remaining four function keys are cursor control and edit keys. They are 
grouped together as the top row on the numeric pad. 
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CLEAR SCREEN/HOME. HOME is a cursor control key that moves the 
cursor to its "home" position, the upper left-hand corner of the screen. Any 

subsequent keyboard entry will be displayed at this position. You "home" the cur- 
sor by pressing the CLEAR SCREEN/HOME key in unshifted mode. 



Before HOME 



After HOME 



60 QT=QT+ft 
78 NEXT X 
80 CLOSE 1 
90 END 

1000 POKE 59411.. 53 
1010 T=TI 

1020 IF CTI-TXie GOTO 1026 
1030 POKE 59411,61 
1040 GT=0SS 




^S0 QT=QT+R 
70 NEXT K 
80 CLOSE 1 
90 END 

1000 POKE 59411.. 53 
1010 T=TI 

1020 IF ^TI-TXIO GOTO 1020 
1 030 POKE 594 1 1 . 6 1 
1040 eT=0 



Cursor here 



Cursor homed 
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CLEAR SCREEN, obtained by pressing the CLEAR SCREEN/HOME key in 
shifted mode, not only homes the cursor but also clears, or blanks, the entire 
display screen. 



Before CLEAR SCREEN 



After CLEAR SCREEN 



60 QT=QT+R 
70 NEXT K 
80 CLOSE 1 
90 END 

1000 POKE 53411 
1010 T=TI 

1020 IF <TI-T:)C10 goto 1020 
1030 POKE 59411.61 
1040 QT=0 



■ 53 





Cursor here Cursor homed, screen blanked 



CURSOR UP/DOWN. CURSOR UP, obtained by pressing this l<ey in shifted 
mode, moves the cursor up one line within the same physical column of the 
screen. When the cursor is at the top line of the screen, CURSOR UP has no effect. 
The cursor moves over characters without changing them. 

Cursor up 

t 
f 
t 
t 
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CURSOR DOWN, obtained by pressing this key in unsliifted mode, moves 
the cursor down one column. Unlike CURSOR UP, CURSOR DOWN can move the 
cursor down "infinitely"; if the cursor is at the bottom line of the screen and you 
press the CURSOR DOWN key, the cursor itself is not moved, but the rest of the 
screen is moved, or scrolled, up one line. This has the net effect of moving the cur- 
sor down one line to a blank line. 



Cursor down 




i 
I 
I 
I 

V.^ " J 

t Blank lines scrolled onto screen ♦ 
1 when cursor is at bottom line i 

If you rapidly press and re-press the cursor control key as fast as you can, 
the cursor moves several positions between cursor blinks; this is because cursor 
movements can be processed faster than cursor blinking. But each key depression 
in fact moves the cursor one position, even when this is not reflected by the cur- 
sor blinking. 

CURSOR LEFT/RIGHT. CURSOR LEFT, obtained by pressing this key in 
shifted mode, moves the cursor left one position within the same horizontal 
row. Multiple pressing of the CURSOR LEFT key rapidly moves the cursor left 
When the cursor is at the beginning of a row, pressing the CURSOR LEFT key 
moves the cursor up one row and to the extreme right-hand end of this row. But 
the cursor stops at the home position; pressing the CURSOR LEFT key has no 
effect if the cursor is in its home position. The effect of the the CURSOR LEFT key 
may be illustrated as follows; 
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CURSOR RIGHT, obtained by pressing this key in unshifted mode, moves 
the cursor right one character position within the same row. As with CURSOR 
LEFT, CURSOR RIGHT wraps the cursor around the screen. But CURSOR RIGHT 
moves the cursor to the beginning of the next line down when the cursor is at the 
extreme right-hand end of a line. When the cursor reaches the end of the bottom- 
most row on the screen, the screen scrolls up one line so that the cursor appears 
at the beginning of the next, blank line. Scrolling continues indefinitely until all 
text has scrolled off the top of the screen; then the cursor appears to move to the 
right circularly along the bottom row of the screen. 




Blank lines scrolled onto screen 
when cursor moves off bottom right 



You use CURSOR LEFT/RIGHT to type over text while editing it. This is 
equivalent to backspacing and striking over on a typewriter; but PET strikeover 
replaces the previous character, rather than trying to blot it out. Suppose you 
have typed: 

NOW IS TEE Tlhm 

and you want to change the first E in TEE to an H. Press CURSOR LEFT until the 
cursor is on the letter to be corrected: 

HOW IS TEE Ti;^ 
NOW IS TEE T.^M 
NOW IS TEE »IM 
NOW IS TEEjigTIM 
NOW IS TEm TIM 
NOW IS TitE TIM 

Now press H: 

NOW IS THm TIM 

The letter H appears where the first E stood, and the cursor moves to the next 
character position. Now press CURSOR RIGHT (NOT the space bar!) to get back to 
where you were. 
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INSERT/DELETE. The INSERT/DELETE key in unshifted mode is DELETE. It 
deletes the character to the immediate left of the cursor and moves the rest 
of the line, headed by the cursor, one character position to the left. To use 

DELETE, press CURSOR RIGHT or other cursor control keys to place the cursor on 
the character to the right of the character or characters to be deleted. Then press 
the DELETE key as many times as needed; each time you will remove one 
character. 

We saw how typeover can be used to correct the following line: 

NOW IS TEE TIM^^ 

Alternatively, the DELETE key can be used to make the correction. To do so, 
press the DELETE key six times: this blanks the line past the T: 

NOW IS TEE Tli? 

NOW IS TEE TM 

NOW IS TEE m 

NOW IS TEEI^ 

NOW IS TE^ 

NOW IS Tm 

Now type in the correction, and the rest of the line, up to the original point: 

NOW IS THE TIME^;? 

The DELETE key can be especially handy when you are initially entering text 
and you spot an error a few characters in back of the cursor position. If the error is 
many characters back, you may be better off using CURSOR LEFT, so that you will 
not have to retype the line, with the possibility of introducing new errors. 

INSERT, the INSERT/DELETE key in shifted mode, opens a single 
character space in the line at the current cursor position. You can then insert 
an additional character into the space. To use INSERT, move the cursor to the 
character position where you want an insertion to begin. The cursor will flash on 
the character that will ultimately become the first character beyond the insertion. 
Press the INSERT key once for each character to be inserted; with each depres- 
sion of the INSERT key the rest of the line is moved one character position to the 
right, and one character space appears. Type in the characters being inserted into 
the space created. You should press as many character keys, including spaces, as 
you did INSERT keys. 

Suppose you want to do the following: 

NOW IS THE TIM^ 

NOT 

Press CURSOR LEFT repeatedly until the cursor is on the T of THE: 
NOW IS »HE TIME 
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Press the INSERT key four times to create spaces for the word NOT plus a 
space. The cursor remains at the beginning of the insert area: 

NOW IStSTHE TINE 
NOW IS» THE TIME 
NOW ISm THE TIME 
NOW im THE TIME 

Enter the word NOT, and a space: 

NOW IS NOT mHE TIME 

Use CURSOR RIGHT to move the cursor to the right of TIME if you want to 
continue entering data. 

INSERT can move text to the end of a statement line (up to two display 
lines), but it cannot move text past the end of the statement line onto a third 
line. If there is a non-blank character at the last position on the line, or if there are 
only blanks between the cursor and the beginning of the line, then the INSERT key 
does nothing. 

Similarly, you can use DELETE to move text to the beginning of the line, 
but not past the beginning of the line; pressing the DELETE key with the cursor 
at the beginning position of the line wraps the cursor up to the end of the preced- 
ing line, but the characters pulled to the beginning of the line do not move up with 
the cursor. 

It is important to note here that when you edit screen text using the 
CURSOR, INSERT, and DELETE keys, what you see on the screen is not al- 
ways what the PET records, in fact, none of your editing changes are 
recorded until you depress the RETURN key. Moreover, you must depress the 
RETURN key once for each statement line that you change. 
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SCREEN DISPLAY 



The PET screen is a high-resolution video display; it is similar to a black-and- 
white television set The display has 1000 character positions, arranged as 25 
rows, with 40 characters per row. The PET screen is illustrated in Figure 2-5. 



-40 Columns- 



25 x40 = 1000 Characters 



Figure 2-5. The PET Video Screen 

One-fortieth of each display line, therefore, becomes one character position. The 
PET can display 64 dots in a single character position, organized as a block that is 
8 dots high and 8 dots wide. Characters are generated in any character posi- 
tion by displaying appropriate dots within the 8x8 dot block, or matrix. This 
is illustrated in Figure 2-6. 

Although lines on the PET display screen are only 40 characters wide, 
logically lines may be up to 80 characters wide. This is another example of 
what you see differing from what the PET records. To the PET, lines can be up to 
80 characters long. The end of a line is recorded by the PET when you press the 
RETURN key. But the PET will insert its own RETURN after the 80th character, 
ending the line, if you attempt to type an 81st character as part of a single line. 

The PET will display a line of more than 40 characters using two screen dis- 
play rows. When you type a 41 st character, the cursor automatically moves to the 
first character position of the next row, and displays the character you type; the 
display looks as though you had typed a RETURN after the 40th character, even 
though you have not 
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a. 8x8 Dot Matrix b. Sample Letter A c. Sample Graphic 




Figure 2-6. The 8x8 Dot Matrix 

CASSETTE TAPE DRIVE 

The cassette tape drive is built into the PET console on PETs with the com- 
pact keyboard but must be connected separately to PETs with the full size 
keyboard. The tape units themselves are identical. The tape drive allows you to 
store programs and data from the PET memory onto cassette tape; you can 
also load stored programs and data from cassette tape into the PET memory. 
The PET can be connected to more than one cassette tape drive. However, only 
one of the tape drives is the "main" or "console" cassette tape drive. For the com- 
pact keyboard PET the console tape drive is the built-in tape unit. For full size 
keyboards the console tape drive is the tape unit connected at the Jl interface 
port (refer to Figure 2-2). 

You can load and store programs on any tape drive (or other peripheral 
device, such as a disk drive) connected to the PET. However, the console tape 
drive is the default device implied when performing a load or store without 
specifying a particular peripheral device. 

The cassette tape drive is shown in Figure 2-7. 
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Figure 2-7. PET Cassette Tape Drive 



CASSETTE OPERATION 

Use the following procedure to insert a tape cassette into the PET tape drive 
(refer to Figure 2-8): 

a. Lift up the tape drive window. 

b. Holding the magnetic tape cassette as shown, push the cassette along 
the glide paths on the underside of the tape drive window. 

c. Push down until the cassette clicks into place. 

d. Push down the tape drive window. This aligns the path of the exposed 
magnetic tape with the tape drive head area. 

To remove a cassette tape, lift up the tape drive window, pull the cassette 
tape out of the tape drive, and then close the tape drive window. 
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Photo Joe Mauro 

Tape drive with window cover open — drive 
empty 



Photo Joe Mauro 

b. Correct manner to hold a tape cassette 
prior to inserting into tape drive 




Open cassette drive with tape cassette d. Closed cassette drive with cassette inside 

inserted 



Figure 2-8. Inserting a Tape Cassette 
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CASSETTE TAPE CONTROLS 



The cassette tape control keys are located at the forefront of the cassette 

drive. 

Record (REC). The RECORD key lets you write onto the magnetic tape 
cassette from PET memory. To record, you must execute a SAVE command 
(which is described in Chapter 4), then hold down the REC key while depressing 
the PLAY key. 

Rewind (REW). The REWIND key rewinds the magnetic tape at high speed, 
to its beginning. To rewind the tape, depress the REWIND key. If the tape does not 
start moving, press the tape STOP key, and then press REWIND. 

You will use REWIND often to rewind tape cassettes back to their beginning 
point before removing them from the tape drive. You will also use REWIND any 
time you need the PET to start searching for information beginning at an earlier 
point on the magnetic tape. 

Fast Forward (FFWD). FAST FORWARD winds the magnetic tape forward 
at high speed. You will not normally use FAST FORWARD. 

The PET writes onto magnetic tape, reads from the tape, and searches for in- 
formation on the tape all at PLAY speed, which is slow. 

You may devise your own scheme using Fast Forward to locate information, 
rather than have the PET search at its Play speed. One method is just to guess. 
Fast Forward to a point that you think is close to the beginning of the information 
you want to load and then try to load. Note that you can be anywhere on the tape 
when you give the PET a LOAD request; you do not have to be at the beginning of 
a program or at the beginning of the tape. A more scientific method is to use the 
measuring scale on the tape cassette; the one below goes from to 100 in units 
of 10, with the beginning of the tape at 30: 



SOME COMMON BASIC PROGRAMS 




OSBORNE/McGRAW-HILL 
630 BANCROFT WAY, BERKELEY. CA 94710 



HA 



As the tape moves forward, the tape radius, measured on the scale, goes 
from 30 up to 100. 100 is the end of the tape. By keeping a record of information 
stored on a tape, using the radius numbers, you can Fast Forward to a point just 
before the desired location. 
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PLAY. The PLAY key enables the PET to begin searching the tape for a pro- 
gram to load from the tape into PET memory, or to write from PET memory to the 
tape if the RECORD l<ey is also pressed. When you initiate the first LOAD or SAVE 
on the cassette, the PET asks you to "PRESS PLAY ON TAPE #V; the PLAY key 
remains depressed until you disengage it by pressing the tape STOP key. You can 
leave the PLAY key pressed until you are through with the tape; the PET reads or 
writes on the tape only when directed to by commands from the keyboard. 

When you first power up the PET, have the tape control keys all up (off). If 
the PLAY key is depressed, the tape will begin moving on power-up. 

STOP. The tape STOP key disengages any of the other tape control keys. If 
one of the other keys does not respond, press the tape STOP key and then the key 
that did not respond. 

Note that there are two STOP keys on the PET: the tape STOP key and the 
main keyboard STOP key. You should have no trouble differentiating between the 
two. 
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CLEANING AND MAINTENANCE 



There are no parts of the PET, except the tape head, that require periodic 
cleaning for proper operation. You can dust the PET if it becomes dusty. Any 
household window cleaner or kitchen spray cleaner can be used to clean the PET 
keyboard, exterior, and display screen if they become heavily soiled. For light 
cleaning, use a sponge dampened in water or a mild soap solution. DO NOT 
CLEAN THE PET WITH LARGE AMOUNTS OF WATER. DO NOT IMMERSE THE 
PET IN WATER. 

Perform all cleaning with power OFF. 

For long-term storage, it is best to pack the PET back into its shipping car- 
ton. 




WRONG- 



38 



CLEANING AND DEMAGNETIZING THE TAPE HEAD 



The tape deck head area of the PET cassette can be seen by opening the 
cassette window with power OFF and depressing the PLAY key. This juts the tape 
head mount out past the bottom edge of the cassette window area, where it is 
marginally reachable for maintenance. The tape head is shown in Figure 2-9. 




Figure 2-9. PET Cassette Tape Head 



The tape head is the portion of the cassette unit that the magnetic tape 
contacts when you record or play bacl<. The oxide coating on the magnetic 
tape gradually deposits a film on the tape head and surrounding area; this 
deposit must be removed periodically by cleaning the tape head to assure 
reliable operation of the cassette unit. To clean the tape head, use a cotton 
swab soaked with denatured ethanol. Clean both heads and also the capstan and 
pinch roller (see Figure 2-9). Allow the area to dry completely before closing the 
cover. 

The tape head also needs to be demagnetized periodically. The tape 
heads gradually become magnetized through use. This affects recording fidelity 
and eventually causes recording errors. To demagnetize the tape heads, you will 
need a tape head demagnetizer (see Figure 2-10); this is an inexpensive unit that 
can be purchased at most audio equipment stores. 

To demagnetize the tape heads, have the cassette window open and the 
PLAY key depressed. To use the demagnetizer, have it at least two feet away from 
the PET before plugging in the demagnetizer (the PET should be OFF). SLOWLY 
bring the demagnetizer towards the PET until it contacts the head surface; 
carefully move it around on one head surface, then the other head surface, then 
all metal surfaces that are directly adjacent to the heads. SLOWLY move the 
demagnetizer back at least two feet before unplugging it. 

CAUTION: Keep your pre-recorded cassette tapes away from the demag- 
netizer. The demagnetizer is an effective tape eraser. Keep it at least five feet 
away from any pre-recorded cassettes. 

The more you use your PET, the more often it will need to have the tape 
heads cleaned and demagnetized. Do it at least once a month — more often if 
you are experiencing load problems or tape degradation. 
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Figure 2-10. A Typical Tape Head Demagnetizer 



Photo Joe Mauro 



CARE OF CASSETTE TAPES 

You will probably buy cassette tapes that have pre-recorded programs on 
them. You will probably also buy blank tape cassettes on which to record your 
own programs or data. Below are a few tips on taking care of your tape cassettes. 

First, when you get a new tape cassette (blank or pre-recorded), bal- 
ance Its tension by fast forwarding to the end of the tape and rewinding back 
to the beginning before loading the first time. This is just a precautionary 
measure that may prevent reading errors that are called LOAD errors. 

When buying cassette tapes for the PET, do not get very long ones — 
15 or 30 minutes is sufficient. This not only cuts down the search time, but 
gives you tape that is thicker and stronger than long-playing tapes. Select high 
quality, low noise, high output, ferric oxide tapes; bargain brands are generally 
less satisfactory. Store the cassettes in a cool place away from things like 
magnets and electronic equipment. 

Be careful not to touch the oxide coated surface when handling tapes. 
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Write Protect 

You can prevent any cassette from being recorded on by a system 
called "write protect." A tape cassette has two write protect notches, one for 
each side of the tape, located on the side opposite the tape access opening (see 
Figure 2-1 1 ). When you buy pre-recorded tapes, or when your own tapes have in- 
formation stored on thenn, you can protect these tapes fronn accidentally being 
written on by punching out the write protect tabs. To write protect just one side of 
the tape, punch out the tab that is on the left when you have the side you want to 
write protect facing upward. When the write protect tab is in place it provides 
resistance to move a small peg on the PET tape head area that allows the RECORD 
key to be operational. When the write protect tab is punched out the peg is not 
moved, so that side cannot be written on. 

if you write protect a tape and then decide you want to reuse it, just 
place a piece of tape over the write protect opening. 









V. 




at 










^^^^^"^^^^^ Write Proted Tabs 



Figure 2-11. Write Protect Notches 
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ELEMENTARY TROUBLESHOOTING 



There are a variety of symptoms that your PET may exhibit when it is not 
working properly. Here are a few examples: the RETURN key may not work; every 
alternate key may not work: the screen display may be jittery: the number of 
"bytes free" may change: the PET may not respond at all. 

This section describes some rudimentary troubleshooting procedures that 
you can follow to check internal cable connections in the PET and to check for a 
faulty memory chip. 

First, here are a few simple procedures you should follow before opening 
up the case of the PET: 

• If you power up and get no response, be sure the PET is plugged into an 
electrical outlet. If it is plugged in, turn power off, wait a few seconds, 
then turn power back on. Try this a number of times until you get a 
response. 

• If the screen becomes jittery or PET BASIC misreacts intermittently, the 
PET unit may be overheated. If you cannot cool the room temperature, 
you will have to turn the PET off for awhile (you will lose whatever infor- 
mation is in memory when you turn it off). 

• The problem may not be in the PET hardware at all. There may be pro- 
gram errors, or "bugs," in the PET BASIC interpreter or in the program 
you are running. 

Internal Cable Connections 

This is the procedure to open the PET and check for secure positioning of 
cable connections. The specific items described are in the compact keyboard 
PET. Follow the same general procedure for full size keyboard PETs. 

1. Turn the power off and unplug the PET. 

2. Move the front of the PET out from the supporting surface so that you 
can see the four retaining screws on the bottom. With a screwdriver, 
unscrew the four retaining screws, placing them in a secure location. 

3. Lift the cover all the way up, being careful not to move it so far back 
that it pulls any of the cords. 

4. Locate the supporting rod on the left side in back of the tape cassette. 
Push the rod up to disengage it from its holder, then move it forward 
and secure it in the back screwhole on the left side. This holds the PET 
cover up so you have both hands free. (The supporting rod is shown in 
place in Figure 2-12.) 
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5. Locate the two rows of RAM devices (Figure 2-1 2). There are two rows 
of eight RAMs each (for an 8K system) making a total of 16 RAMs. 
Each RAM has nine prongs coming out and down, off each side of the 
blacl< rectangular top (Figure 2-13), Press gently but firmly on each 
RAM to be sure it is securely seated in its casing connection. 




Figure 2-12. PET Internal View 
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Photo Joe Mauro 

Figure 2-13. Memory Device Unconnected 

6. The third row of larger rectangles contains ROIVI devices. Press thenn 
down also to be sure that they are firmly seated. 

7. The keyboard cable is connected just to the left of the ROMs. Press 
down along this connector to be sure that it is firmly in place. 
Optionally unplug the connector, lifting straight up, and plug it back in 
securely, pushing straight down. 

8. Behind the keyboard cable is the video cable. Press firmly down on it to 
make sure it is firmly seated. 

9. In front and to the left of the keyboard connector is the power supply 
connector. Press down on it to be sure it is firmly connected. 

1 0. Behind and to the left of the power cable is the cassette recorder cable, 
connected horizontally on the side of the large green board. Push in on 
the cable to connect it firmly in place. 

11. If the inside is dusty, you can vacuum carefully to remove foreign parti- 
cles. Be very careful not to bend any of the components on the board. 
Preferably clean with a squeezable bulb brush cleaner or a can of pres- 
surized air for dusting. (These two items are available from photo- 
graphic supply houses.) 

12. Unlatch the retaining rod and put it back into its holder, close the 
cover, plug the PET in, and turn the power on. If the trouble was due to 
loose connections, the problem should now be cleared up. 



Locating a Defective RAM 

On earlier model PETs, the RAM failure rate was high. This prompted the 
manufacturer to recommend a procedure for owners of the first PETs to check for 
a defective RAM themselves. We reproduce this procedure below; you may want 
to learn this procedure if you have an older PET and are experiencing frequent 
RAM failures. It applies only to PETs with compact keyboards. 

If you do not get the standard number of bytes free at power-up (less 
than 7167 for an 8K PET or 3071 for a 4K PET) or if the RETURN key is not 
working properly, the problem is probably a defective memory device, or 
RAM. The following procedure describes how to locate a faulty RAM yourself, so 
that you do not have to ship the PET to the factory to have this done. 

To perform this procedure, you will need an "extractor tool" (see Figure 
2-14) available from electronic supply houses. 



1. Unplug and open the PET as described above. 

2. Refer to Figure 2-15 for RAM numbering conventions. If bytes free are 
less than the number shown in the first column below, then the number 
of the RAM to be tested is in the second column below. 




Phmo Joe Mauro 



Figure 2-14. Extractor Tool 



Bytes Free 



RAM Number 



1023 
2047 
3071 
4095 
5119 
6143 
7167 



2 
3 
4 
5 
6 
7 
8 
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Back Row [7] □□□□□HQ 

Front Row [7] Q] [J] [[] [T] [T] [7] Q 

Front of Pet 



Figure 2-15. RAM Numbering 

For example, if bytes free are less than 4095, perfornn this procedure on 
the RAM numbered 5 in Figure 2-15. 

3, Using the extractor tool, carefully lift the two RAMs straight up from 
their sockets. BE SURE THAT YOU DO NOT BEND THE PINS. BE SURE 
THAT YOU DO NOT TURN THE DEVICES AROUND. Exchange the two 
RAMs, pushing each one straight down into the socket with your 
fingers. Without lowering the cover, plug the PET in and turn it on. Has 
the number of bytes free changed? If not, the two RAMs are good and 
you must select another pair. If the number of free bytes decreases, the 
defective RAM is the one you just put into the front row. If the number 
increases, the defective RAM is the one in the back row. 

4. If the problem is with the RETURN key, exchange RAMs in columns 8 
and 1, as shown below. 




Front of PET 



This (hopefully) puts good RAMs into column 1, and the defective RAM 
in column 8 can be determined by checking the number of free bytes, as 
described above. 

5. When you have located the defective RAM, lift it out and use a RAM 
from column 8 in its place. This decreases your total amount of free 
bytes the least. Return the defective RAM to the manufacturer for a 
replacement. 
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CHAPTER 3 



Programming the PET 



CALCULATOR OR IMMEDIATE MODE 

When the PET is powered up it is in calculator mode, also called direct 
or immediate mode. In calculator mode, as the name implies, you can use the 
PET as you would a calculator; it responds directly with the answers to 
arithnnetic calculations. This nnay be illustrated as follows: 



■■4.5+6.42 
10.92 



Addition 



REflUV. 

7500-4 Igi Subtraction 
90 

REflUV. 

?1T*2 Multiplication 
6.2S31S531 

REflDV . 

71 00/3 Division 



REflDV. 

76/2*4-1 Combination 
11 
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In calculator mode, as illustrated above, answers are displayed innmediately, 
on the next line of the display. 

To use calculator nnode for arithmetic operations, you must begin the line by 
typing ? or PRINT; they are both print requests. Next type the calculation for 
which you seek an answer. Terminate with a RETURN. 



We can illustrate the "format" or "syntax" for a general case calculator 
mode entry as follows: 



Statements entered in calculator mode do not, and cannot, begin with 
line numbers. Later in this chapter we will examine exactly what you can include 
in the "formula" portion of a calculator mode statement. 

You can use immediate mode to display the result of a calculation 
defined in an earlier statement. Consider the following example: 




r 




formula 



T 



rl=fT*£ 



REflDV. 
6.28318531 
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There were two statements, each given in immediate mode. When you type 
in the first statement, A=ir*2, the result is not displayed since the statement 
does not begin with ? or PRINT. But PET BASIC performed the calculation and 
gave the resulting value to the variable named A. This value is fetched and typed 
in the second command, ?A. 

You can display the value of any variable using the technique illustrated 
above. The variable does not need to have its value assigned in a preceding im- 
mediate mode statement, as was the case for A above. When you have learned 
how to write and run PET BASIC programs, remember that you can stop the pro- 
gram's execution at any time, then examine the current value assigned to any 
variable defined by your program. Type ? followed by the variable name, and the 
value currently assigned to the variable name will be displayed on the next line, 
just as 6.28318531, the value assigned to A, is shown in the illustration above. 

A ONE-LINE PROGRAM 

Statements can be grouped together on one line by separating each state- 
ment with a colon {:). Thus, the two statements you entered separately earlier: 

,^=11*2 
■■fl 

can be condensed into one line as follows: 

rl=iT*2 : 7fl 

Since a line can have up to 80 characters (two display lines), you can put 
quite a lot in one line, and execute it all in immediate mode. For example, consider 
the following statement: 

FOR 1 = 1 TO 800 : ? " fl " : NEXT : ? " PHEW ! " 
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Type this "mini-program" in, exactly as shown, ending with a RETURN. If 
you type it in successfully, you will see the letter A print across the next 20 lines 
of the screen, followed by the message PHEW! on the 21st line. 



FOR 1=1 TO 800 : ?"fl" NEXT- ?"PHEW! " 

flRFIflfiflflfiflflflflRflRflflfilflflflRflflflfiflflflfiPlftflflflflftflflPi 

fiflfiflflflRRRflfiflflflfiflflfllOfififlflRfiflfiflflfiflflflflflflfiflfilfl 

flflflflfiftflfifififlflflfiflflfiflfiftRaflflfiftftflflfifilRflflfififlflRfl 

OfiflflflfiflfiflRflflflflfiflfiflflftfiflflfiflflfiftflflfiflfiflflflflfiflfi 

fifififlflflfififlfiflflflftflflRfiflfiflflFlflflftflflflflflfiflfiflfiflflflFI 

flfiflflflflflfiflflflRfiflftflflflROftftftflfiflflflfiflRflFlfiiaflaflflfl 

RRflRflflRflRflflflflflflRRRRRRflflflflRRRRflflRRRflflRflflfl 

flflRRflflflRflflflRRflflRRflflRRRRflRRRRflRRRflRRRRflflfl 

flRRflflflfiRflflflflRRRRflRflflRflflflRRRRRRRflRflflRflflRfl 

RflRflflflflflflflRflRflRRflflRRRRflRflflRRRflflflflRflRflflflfl 

RfiRflflflRflRRRflflRRRflflflRRRRflflRRRflRRflflflflRRflflR 

flRRRflflRflflRflflflflflRRRRflflflflRRRHRRRflflflRRRRRRR 

flflRflfiflRRRflRflRRflflflflfiflRRRflRflflRRRflflRflflflflflflR 

RflRflflflRRRRRflflflRRflflflRflflflfiflRRRRflflflflflflfifiRRR 

RfiRRRflfiRflflflRRRRRRflflRflRflRflRRRRfiflflRRflflRRRR 

RflflflflflRRRRflRRRflRRflRRflRRflflRflRRfiRRflflRflRflRR 

RflflRflflflflRRflRflRflflRRRRRRflRflRRRflflflflflflflflflflRfi 

RfiRRflflflflRRRflflflRRRRRflflflflflRRRRRRRRflflfiflflflfifl 

RflflRflRRRfiRRflflflRRRRRflflflRRRflflflflflflRflRRRflRRR 

RflflRfiflflflRflflflRRRRRRRRflflRflflRRRRflflflRflflRRflRfl 

PHEW! 

RERDV. 

m 



The program line is conveniently left at the top of the screen. This was done 
by having the program print just enough lines to scroll the program line to the top 
of the screen but not off it. 
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REEXECUTING IN IMMEDIATE MODE 



When the one-line program described above completes executing in im- 
mediate mode, PET BASIC displays the READY message and leaves the cursor at 
the beginning of the bottom display line. 

An important feature of PET BASIC is that anything displayed on the 
screen is "live." You can edit any line on the screen, and you can reexecute 
any immediate mode statements that are still on the display screen. 

Use CURSOR UP (shift of Cursor Up/Down key) or, more conveniently, 
depress the HOME key (Clear/Home key unshifted) to move the cursor up to the F 
in FOR. Move the cursor right 15 positions to the A. Press a graphic key, say the 
DIAGONAL-QUARTER BLOCK SOLID (shift of ? key). Key RETURN. The new sym- 
bol now overwrites and replaces all of the A's across the 20-row display. On com- 
pletion, the cursor again rests at the beginning of the bottom line. 



FOR 1 = 1 TO 800 :?"■•"; NEXT: ?"PHEW! " 

VJVWVWViW.VrtV%V^VVVWVVVliVArtArtrtiVVVVV'iV 
V.VW'.ViVA%V.SVW.WAW«VVVVW".ViVWV%VA 

VrtWSiVWWAVV%VrtW.Vi"iVi"iVrtV.V.Wi*i% 



■rt^ftl^iVv^iV^l^^s^v^^s^^w■^v■v.■^i^vw.v.v•v■ 

•■^flrtv*^vvrt^.vvviiVl^l%w.%sv«■■^v.v.v■•MV• 
vwvwvvwwwwv^ftVliV.v■w■■l■■■lV.■■"w■rtVl•^l^^■^ 

PHEW ! 
REflDV. 



i"«W"iV."i%'ViWiV«V.".".ViViSV."« 
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MODIFYING A PROGRAM 

Before trying any more characters, make one editing modification to the line 
so that changing the character is just a little easier. By adding an assignment 
statement at the beginning of the line, and having the variable printed in the 
PRINT statement, you won't have to move the cursor as far to the right to change 
the character. The new line, with the display character changed to a W, will look 
like this: 

C* = " W " : FOR I = 1 TO 800 ■ ?C* ..■ : NEXT ■ ? " PHEW ! " 
To modify the current line, perform the following steps: 

1. Home the cursor so it is blinking at the F in FOR ( indicates position of 
cursor). 

FOR I = 1 TO 800 : ? " S" : NEXT ■ 7 " PHEW ! " 

2. Press the INSERT key (shift of Insert/Delete) seven times. 

FOR 1 = 1 TO 800:?"".".: :HE:>iT: ? "PHEW! " 

3. Type in the seven characters: 

C:*="W" ■ 

The line now looks like this, with the cursor again resting on the F in 
FOR: 

i::*= " W " : FOR 1 = 1 TO SOO - ? " "«" : NEXT : 7 " PHEW ! " 

4. Cursor right 14 times to the first quotation mark. 

C:*="W":FOR 1 = 1 TO S00 ?"".".:: NEXT ?"PHEW ! " 

5. Type in the two characters: 

C$- 

The line now looks like this: 

C*= " W " : FOR 1 = 1 TO 800 : ?C*" .; • NEXT : ? " PHEW ! " 

6. Remove the other quotation mark by pressing one Cursor Right: 

i::*="W" - FOR 1 = 1 TO 800 : ?C#" ; ^ NEXT :? "PHEW ! " 

Followed by one Delete: 

C:*="W" :FOR 1 = 1 TO 800 : ?C*.: ■■ NEXT • ''"PHEW ! " 

The changes have all been made: press RETURN to print the new character. 
Now you can HOME the cursor, then move it right just four positions to change 
the display character. Display any other characters you want. The graphics are 
especially interesting. 
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ELEMENTS 



Before modifying this display program further, we will set it aside and de- 
scribe the elements of PET BASIC. This will introduce you to the full range of 
statements, functions, and commands available. At the end of the chapter we will 
come back to this display example and show how you can develop it into a stored 
program. 

Like natural languages, PET BASIC has an alphabet consisting of letters, 
numbers, and special characters. These correspond to the alphabetic keys, 
numeric keys, and special symbol keys on the PET keyboard. The remaining 
two groups of keys, graphic keys and function keys, may be used only inside 
quotation marks, or for keyboard/cursor control purposes not related to the BASIC 
language. 

The PET alphabet is used to form the words, numbers, and other ele- 
ments that make up a BASIC sentence, or statement. 

NUMBERS 

You use numbers all the time when working with the PET. There are two 
kinds of numbers that can be stored in the PET: floating point numbers (also 
called real numbers) and integers. 

Floating Point Numbers 

Floating point is the standard number representation used by the PET. The 
PET does its arithmetic using floating point numbers. A floating point number 
can be a whole number, a fractional number preceded by a decimal point, or 
a combination. The number can be signed negative (-) or positive (+). If the 
number has no sign it is assumed to be positive. Here are some examples of float- 
ing point numbers: 

Whole number, equivalent to an integer: 

5 

-15 
65000 
161 
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Numbers with decimal point: 

0.5 

0.0165432 

-0.0000009 

1.6 

24.0055 

-64.2 

3.1416 

Note that if you put commas in a number and ask the PET to print it, you will 
get a Syntax Error message. For example, you must use 65000, not 65,000. 



Roundoff 

Numbers always have at least eight digits of precision; they can have 
up to nine, depending on the number. The PET rounds off any additional sig- 
nificant digits. It rounds up when the next digit is five or more; it rounds down 
when the next digit is four or less. 

Roundoff will sometimes cause fractional numbers to look inaccurate. Here 
are some examples: 



555 
L 



■=^555555557 
555555.56 



1111111115 
111111111 

1111111116 
111111112 



Appears to round down on 6 or less, up on 7 or more. 



Appears to round down on 5 or less, up on 6 or more. 



These quirks result from the manner in which computers store floating point 
numbers. 



Scientific Notation 

Floating point numbers can also be represented in scientific notation. When 
numbers with ten or more digits are entered, the PET automatically converts 
them to scientific notation. Scientific notation allows the PET to accurately dis- 
play these large numbers in a smaller number of spaces. For example: 

REflDV. 
71111111114 
1.11111111 £+09 
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REflDV. 

'■iiininis 
1. iiiiin2E+e3 

A number in scientific notation has the form: 

numberE±ee 



where; 
number 



ee 



is an integer, fraction, or combination, as illustrated above. 
The "number" portion contains the number's significant 
digits; it is called the "coefficient." If no decimal point ap- 
pears, it is assumed to be to the right of the coefficient, 
the upper case letter E. 
an optional plus sign or minus sign. 

a one- or two-digit exponent. The exponent specifies the mag- 
nitude of the number; that is, the number of places to the 
right (positive exponent) or to the left (negative exponent) that 
the decimal point must be moved to give the true decimal 
point location. 



Here are some examples; 

Scientific Notation Standard Notation 

2E1 20 

10.5E-h4 105000 

66E-h2 6600 

66E-2 0.66 

-66E-2 -0.66 

IE- 10 0.0000000001 

94E20 9400000000000000000000 

As the last two examples show, scientific notation is a much more conve- 
nient way of expressing very large or very small numbers. PET BASIC prints num- 
bers ranging between 0.01 and 999,999,999 using standard notation; but num- 
bers outside of this range are printed using scientific notation. 

?. 009 

9E-03 

REflDV. 
?. 01 

. 01 

REFlDV . 
REflDV. 

■-■090(939999. €• 
iE+09 
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There is a limit to the magnitude of a number that the PET can handle, 

even in scientific notation. The range limits are: 

largest floating point number: ±1.70141 183E+38 
smallest floating point number: ±2.93873588E-39 

Any number of larger magnitude will give an overflow error. Here are some 
examples of overflow error: 

?1 .70141 1S3E+38 
1 . 70141 lS:3E+:38 

REFlDV. 

?-l . 70141 1S3E+33 
-1 . 70141 1S:3E+3S 

REflDV. 

?1 . 70141 1S4E+38 
70VERFL0W ERROR 

REonv. 

?-l. 70141 1S4E+3S 
70VERFL0W ERROR 

Any number of smaller magnitude will yield a zero result. This may be il- 
lustrated as follows: 

72.93S735SSE-39 
2. 33S7353SE-39 

REflDV. 

?-2. 33S7353SE-39 
-2. 33S735SSE-39 

REflDV. 

?2. 938735S7E-:39 
^.^ 

REflDV. 

?-2. 93373537E-39 
^ 
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Integers 

An integer is a number that has no fractional portion or decimal point. 

The number can be signed negative (-) or positive (+). An unsigned number is 
assumed to be positive. Integer numbers have a limited range of values, from 
-32767 to +32767. The following are examples of integers: 


1 

44 

32699 
-15 

Any number that is an integer can also be represented in floating point for- 
mat, since integers are a subset of floating point numbers. PET BASIC converts 
any integers to floating point representation before doing arithmetic with 
them. The most important difference between floating point numbers and in- 
tegers is that an integer array uses less storage space in memory (two bytes 
for an integer, versus five bytes for a floating point number). 

STRINGS 

We have already used strings as messages to be printed on the display 
screen A string consists of one or more characters enclosed in double quota- 
tion marks. Here are some examples of strings; 

"HI!" 

"SYNERGY" 
"12345" 

"$10.44 IS THE AMOUNT" 

"22 UNION SOUARE, SAN FRANCISCO CA" 

All of the data keys (alphabetic, numeric, special symbols, and graphics), as 
well as the three cursor control keys (Clear Screen/Home, Cursor Up/Down, Cur- 
sor Left/Right) and the Reverse On/Off key can be included in a string. The only 
keys that cannot be used within a string (besides the SHIFT key) are Run/Stop, 
RETURN, and Insert/Delete. 

All characters within the string are displayed as they appear. The cursor 
control and Reverse On/Off keys, however, normally do not print anything them- 
selves; to show that they are present in a string, certain reverse field symbols are 
used. They are shown in Table 3-1. 

When you enter a string from the keyboard, it can have any length up to the 
space available within an 80-character line (that is, any character spaces not 
taken up by the line number and other required parts of the statement). However, 
strings of up to 255 characters can be stored in the PET's memory. You get 
long strings by pushing together, or concatenating, two separate strings to 
form one longer string. We will describe this further when we discuss string 
variables in general. 
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Table 3-1. Special String Symbols 



Function 


Key 




String Symbol 


Reverse On 




^ OFF 
D\/C 

. ON 




(Reverse R) 


Reverse Off 


Shifted 


■ OFF 

RVS 

ON 


m 


(Reverse Shifted R) 












Home Cursor 




CLR 
SCREEN 
HOME 


.43 


(Reverse S) 


Clear Screen 


o 1 1 1 1 lyu 


SCREEN 
HOME 


n 


(Reverse Shifted S) 


Cursor Down 




•A. 

CURSOR 

. ^ . 


;« 


(Reverse Q) 


Cursor Up 


Shifted 


CURSOR 

. . 


"i 


(Reverse Shifted 0) 












Cursor Right 




<= ■ 
CURSOR 

^ J 


n 


(Reverse ]) 


Cursor Left 


Shifted 


C: ' 

CURSOR 
^ J 


II 


(Reverse Shifted ]) 



VARIABLES 

In Chapter 2 we introduced the concept of a variable. We will now describe 
variables more thoroughly. 

A variable is a data item whose value may change. You type the immedi 
ate mode statement: 

PRINT 10., 20., 30 

1 & 20 .30 

The PET will print the three numbers 10, 20, and 30. as illustrated above. 
The PET will print the same three numbers whenever this PRINT statement is ex- 
ecuted; that is because this PRINT statement uses constant data. In contrast, you 
can write the immediate mode statement: 

fl= .1 B-20 ■ C-30 PR INT fl .. E .. C 
1 y 20 30 
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The same three numbers, 10, 20, and 30, are displayed, but A, B, and C are 
variables, not constants. By changing the values assigned to A, B, and C, you can 
change the values printed out by the PRINT statement. Here is an example: 

H=:_4 : E= 1 : C:=4E2 : PR INT fl .. E .. C 
-4 10 400 

Variables appear in just about every statement of a computer program. 
Variable Name 

A variable is identified by a name. We used A, B, and C as variable names in 
the illustrations above. A variable has two parts: its name and a value. The 
variable name represents a location at which the current value is stored. In 

the illustration below, the current value of A is 14; for B it is 1 5; and for C it is 0. 

Variable Location 
Name Contents 

A 14 
B 15 
C 

If we change A to —1 using the immediate mode statement: 

A = -1 

then our illustration must change as follows: 

Variable Location 
Name Contents 

A -1 
B 15 
C 

This is a good way of looking at variables because it is. In fact, the way they 
are handled by the PET. A variable name represents an address in PET 
memory; and at that memory location is the current value of the variable. The 
important point to note is that variable names — which are names that pro- 
grammers make up — are arbitrary; they have no innate relationship to the 
value that the variables represent. 
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A variable name can have one, two, or three characters, as follows: 

r , 

Mandatory first character- 



Optional second character 




i(blank)j 

% 



Variable type' (blank) 
% 



for floating point variable 
for integer variable 
for string variable 



A-Z means that you can select any letter of the alphabet A, B, C, . . . X, Y, Z, 
and 0-9 means that you can select any digit 0, 1,2, 3, 4, 5, 6, 7, 8, or 9. 

Floating Point Variable 

A floating point variable is a variable that represents a floating point num- 
ber. This is probably the most common type of variable that you will use in PET 
BASIC. 

Names for floating point variables have the form: 



A-Z 



Examples: 



A 



C 
A1 
AA 
Z5 



Integer Variable 



An integer variable is a variable that represents an integer 
Names for integer variables have the form: 



A-Z 



Examples: 



A% 

B% 

C% 

A1% 

MN% 

X4% 



Remember, floating point variables can also represent integers; but you 
should use integer variables in arrays whenever possible, since they use less 
memory — two bytes, versus five for a floating point array element. 
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String Variable 

A string variable is a variable that represents a string of text 
Names for string variables have the form: 

A-z[{S:9}]$ 

Examples: 

A$ 

M$ 

MN$ 

Ml$ 

ZX$ 

F6$ 

Longer Variable Names 

You can use variable names having more than two alphanumeric 
characters; but if you do, only the first two characters count. To PET BASIC, 
therefore, BANANA and BANDAGE are the same name since both begin with BA. 

The advantage of using longer variable names is that they make programs 
easer to read. PARTNO, for example, is more meaningful than PA as a variable 
name describing a part number in an inventory program. 

PET BASIC allows variable names to have up to 255 characters. 

Here are some examples of variable names with more than the minimum 
number of characters: 

MAGICS 

N 123456789 

MMM$ 

ABCDEF% 

CALENDAR 

If you use extended variable names, keep in mind the following: 

1 . Only the first two characters, plus the identifier symbol, are significant in 
identifying a variable. Do not use extended names like L00P1 and 
L00P2: these refer to the same variable: LO. 

2. PET BASIC has what are called "reserved words." These are words that 
have special meaning for the PET BASIC interpreter. No variable can con- 
tain a reserved word. In longer names you have to be very careful that a 
reserved word does not occur embedded anywhere in the name. 

3. The additional characters need extra memory space, which you might 
need for longer programs. 
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Reserved Words 

PET BASIC is programmed to recognize certain words as requests for 
specific operations. Names that are pegged to certain operations are called 
reserved words You cannot use these words as variable names because 
PET BASIC will always recognize the word as a request for the correspond- 
ing operation. Moreover, you cannot use a reserved word as any part of your 
variable names; PET BASIC will still find it and treat it as a request for an 
operation. 

A list of reserved words is given in Table 3-2. Pay particular attention to the 
two-character reserved words, since these are the ones you would be most likely 
to duplicate in a variable name. 



Table 3-2. Reserved Words 



ABS 


GET 


OPEN 


SPC 


AND 


GET# 


OR 


SQR 


ASC 


GOSUB 


PEEK 


ST 


ATN 


GOTO 


POKE 


STEP 


CHR$ 


IF 


POS 


STOP 


CLOSE 


INPUT 


PRINT 


STR$ 


CLR 


INT 


PRINT# 


SYS 


CMD 


LEFTS 


READ 


TAB 


CONT 


LEN 


READ# 


TAN 


COS 


LET 


REM 


THEN 


DATA 


LIST 


RESTORE 


Tl 


DEF 


LOAD 


RETURN 


Tl$ 


DIM 


LOG 


RIGHTS 


TO 


END 


MID$ 


RND 


USR 


EXP 


NEW 


RUN 


VAL 


FN 


NEXT 


SAVE 


VERIFY 


FOR 


NOT 


SGN 


WAIT 


FRE 


ON 


SIN 





OPERATORS 

An operator is a special symbol that PET BASIC recognizes as repre- 
senting an operation to be performed on the variables or constant data. One 
or more operators, combined with one or more terms, form an "expression." 

PET BASIC provides arithmetic operators, relational operators, and Boolean 
operators. 
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Arithmetic Operators 

An arithmetic operator defines an arithmetic operation to be performed 
on the adjoining terms. Arithmetic operations are performed using floating point 
numbers. Integers are converted to floating point numbers before an arithmetic 
operation is performed: the result is converted back to an integer. 

Arithmetic operations and their symbols are: 

Addition (+). The plus sign specifies that the term on the left is to be added 
to the term on the right. For numeric quantities this is straightforward addition. 

Examples: 

2+2 
A+B+C 
X%+1 
BR+10E-2 

The plus sign can be used to "add" strings: but rather than adding their 
values, they are joined together, or concatenated, forming one longer string. The 
difference between numeric addition and string concatenation can be visualized 
as follows: 

Addition of Numbers: 

numi +num2 = num3 
Addition of Strings: 

string 1+string2=string1 string2 
By concatenation, strings containing up to 255 characters can be developed. 
Examples: 

■■FOR"+"WARD" results in "FORWARD" 

"Hl"+" "+"THERE" results in "HI THERE" 
A$+B$ 
■'1"+CH$+E$ 

Subtraction (-). The minus sign specifies that the term to the right of the 
minus sign is to be subtracted from the term to the left. 

Examples: 

4—1 results in 3 

100-64 results in 36 

A-B 

55-142 results in -87 
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The minus can also be used as a unary minus; that is, the minus sign preceding a 
negative number. 

Examples: 



-5 

-9E4 

-B 

4 — 2 



same as 4+2 



Multiplication (*). An asterisk specifies that the term on the right is 
multiplied by the term on the left. 



Division (/). The slash specifies that the term on the left is to be divided by 
the term on the right. 



Exponentiation (f). The up arrow specifies that the term on the left is raised 
to the power specified by the term on the nght. If the term on the right is 2, the 
number on the left is squared; if the term on the right is 3, the number on the left 
is cubed, etc. The exponent can be any number, vanable, or expression, as long as 
the exponentiation yields a number in the PET's range. 



Examples: 



100.2 
50.0 
A.X1 
R%.14 



results in 200 
results in 



Examples: 



10/2 
6400/4 
A/B 
4E2/XR 



results in 5 
results in 1600 



Examples: 



212 
1212 
1 13 
A15 
216.4 



results in 84.4485064 



results in 4 
results in 144 
results in 1 



NMt-10 
14TF 
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Order of Evaluation 



When an expression has multiple operations, as in: 

A+C* 10/212 

there is a built-in hierarchy for evaluating the expression. First is exponentiation 
(t), followed by unary minus (-), followed by multiplication and division {*/), 
followed by addition and subtraction (+ -). Operators of the same hierarchy are 
evaluated from left to right. 

This natural order of operation can be overridden by the use of 
parentheses. Any operation within parentheses is performed first. 

Examples: 

4+1 •2 results in 6 

(4+1).2 results in 10 

100.4/2-1 results in 199 

100.(4/2-1) results in 100 

100.(4/(2-1)) results in 400 

When parentheses are present, PET BASIC evaluates the innermost set first, 
then the next innermost, etc. Parentheses can be nested to any level and may be 
used freely to clarify the order of operations being performed in an expression. 



Relational Operators 

A relational operator specifies a "true" or "false" relationship between 
adjacent terms. The specified comparison is made, and then the relational 
expression is replaced by a value of true (-1) or false (0). Relational operators 
are listed in Table 3-4 at the end of this chapter. Relational operators are evalu- 
ated after all arithmetic operations have been performed. 

Examples: 

1=5-4 results in true (-1) 

14>66 results in false (0) 

15>=15 results in true (-1) 

A< >B 

Relational operators can be used to compare strings. For comparison pur- 
poses, the letters of the alphabet have the order A<B, B<C, C<D, etc. Strings 
are compared by comparing their stored character values. Characters are stored 
using a special binary code called "ASCII." Appendix A lists the ASCII code 
assigned to every PET character. 

Examples: 

"A"<"B" results in true (-1) 

"X"="XX" results in false (0) 

C$=A$-I-B$ 
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Boolean Operators 

The Boolean operators AND, OR. and NOT specify a Boolean logic 
operation to be performed on two variables, on adjacent sides of the operator 
In the case of NOT. only the term to the right is considered. Boolean operations 
are not performed until all arithmetic and relational operations have been com- 
pleted. 

Examples: 

IF A = 100 AND B = 100 GOTO 10 

If both A and B are equal to 100, branch to 
statement 10. 

IF X<Y AND B>=44 THEN F=0 

If X is less than Y, and B is greater than or equal to 44, 
then set F equal to 0. 

IF A = 100 OR B = 100 GOTO 20 

If either A or B has a value of 100, branch to 
statement 20. 

IF X<Y OR B>=44 THEN F=0 

F is set to if X is less than Y, or B is greater than 
43. 

IF A = 1 AND B=2 OR C=3 GOTO 30 

Take the branch if both A = 1 and B=2; also take 
the branch if 0=3. 

A single term being tested for "true" or "false" can be specified by the term 
Itself, with an implied " < >0" following it. Any non-zero value is considered true; 
a zero value is considered false. 

Examples: 

IF A THEN B=2 

IF AOO THEN B=2 

The above two statements are equivalent. 
IF NOT B GOTO 100 

Branch if B is false, i.e., equal to zero. This is 
probably better written as: 
IF B=0 GOTO 100 

The three Boolean operators can also be used to perform logic operations on 
the individual binary digits of two adjacent terms (or just the term to the right in 
the case of NOT). But the terms must be in the integer range. Boolean operations 
are defined by groups of statements, which taken together constitute a "truth ta- 
ble. Table 3-3 gives the truth tables for the Boolean operators used bv PET 
BASIC. 
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Table 3-3. Boolean Truth Table 



The AND operation results in a 1 only if both bits are 1. 

1 AND 1 = 1 

AND 1 =0 

1 AND 0=0 

AND = 

The OR operation results in a 1 if either bit is 1. 

1 OR 1 = 1 

OR 1 = 1 

1 OR = 1 
OR = 

The NOT operation logically complements each bit. 

NOT 1 = 
NOT = 1 



Bit-Oriented Boolean Operations 

We include below a discussion of binary digit (bit) oriented Boolean opera- 
tions. This discussion is presented for those who are interested in the details 
of how these operations are performed. If you do not understand it, skip it. You 
are not skipping anything you must know. 

Bitwise Boolean operations are normally performed on unsigned, positive 
16-bit numbers; tfiese numbers range from to FFFF hexadecimal, to 188888 
octal, or or 65535 decimal. However, the numbers must be input to the PET in 
the range ±32767 decimal. Appendix F contains hexadecimal-PET decimal con- 
version tables. If you are already familiar with Boolean operations, you have prob- 
ably used binary, octal, or hexadecimal notation, because the bit-by-bit conver- 
sion is straightforward. PET BASIC accepts only decimal numbers, even for these 
Boolean operations. Here are some examples of bitwise Boolean operations: 

Operation Hexadecimal equivalent 

1 AND 1 results in 1 1 AND 1 equals 1 

1 AND -1 results in 1 1 AND FFFF equals 1 

15 OR 240 results in 255 F OR FO equals FF 

NOT results in -1 NOT equals FFFF 

NOT 1 results in -2 NOT 1 equals FFFE 
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If the terms to be operated on are not already integers, they are converted to 
integer fornn; the Boolean operation is performed, and the result is presented as a 
single integer value. This is also how Boolean operations work on the true/false 
expressions. That is, there is no operational difference between a mixed Boolean 
operation such as: 

A = 1 OR C<2 
and a simple Boolean operation such as: 

A OR C 

The only practical difference is that, since a relational expression is evalu- 
ated to —1 or 0, the Boolean operation will always be performed on quantities of 
— 1 and for a relational expression. For example: 

IF A=B AND C<D GOTO 40 

First the relational expressions are evaluated. Assume that the first expression is 
true and the second one is false. In effect, the following Boolean expression is 
evaluated: 

IF -1 AND GOTO 40 
Performing the AND yields a result: 

IF GOTO 40 

Recall that a single term has an implied "<>0" following it. The expression 
therefore becomes: 

IF OOO GOTO 40 

Thus, the branch is not taken. 

In contrast, a Boolean operation performed on two variables may yield any 
integer number: 

IF A% AND B% GOTO 40 

Assume that A%=255 and B%=240. The Boolean operation 255 AND 240 yields 
240. The statement, therefore, is equivalent to: 

IF 240 GOTO 40 

or, with the "< >0": 

IF 240 < >0 GOTO 40 

Therefore the branch will be taken. 

Now compare the two assignment statements: 

A = A AND 10 

A = A<10 

In the first example, the current value of A is logically ANDed with 10 and 
the result becomes the new value of A. A must be in the integer range ±32767. In 
the second example, the relational expression A< 10 is evaluated to -1 orO, so A 
must end up with a value of -1 or 0. 
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Table 3-4. Operators 









M68nin9 




Winh 

nign 








q 


( ) 


Pa ronthococ HpnrttP nrH P r nf PVfl 1 1 1 flti nn 
r df CI III Icbco UcliULtJ uiucr Ui cvaiuaiiijii 




8 


1 


Exponentiation 




7 


— 


Unary Minus 


m O 

E « 


6 


* 


Multiplication 


II 


6 


/ 


Division 




5 


+ 


Addition 




5 




Subtraction 




4 




Equal 


■5 2 


4 


• > 


Not equal 


E ° 
.2 ^ 


4 




1 pec than 

l_COO Ll lO 1 1 


ll 


4 


> 


Greater than 


» s 

K O 


4 


<=or =< 


Less than or Equal 




4 


>=or => 


Greater than or Equal 


c 2 


3 


NOT 


Logical complement 


a o 


2 


AND 


Logical AND 


era 


1 


OR 


Logical OR 


"5 


Low 







ARRAYS 

An array is a sequence of related variables. A table of numbers, for ex- 
ample, may be visualized as an array. The individual numbers within the ta- 
ble become "elements" of the array. 

Arrays are a useful shorthand means of describing a large number of related 
variables. Consider, for example, a table of numbers containing ten rows of num- 
bers, with twenty numbers in each row. There are 200 numbers In the table. How 
would you like it if you had to assign a unique name to each of the 200 numbers? 
It would be far simpler to give the entire table one name, and identify individual 
numbers within the table by their table location. That is precisely what an array 
does for you. 

Arrays can have one or more dimensions. A single-dimensional array is 
equivalent to a table with just one row of numbers. The dimension identifies a 
number within the single row. An array with two dimensions yields an ordinary 
table with rows and columns: one dimension identifies the row, the other dimen- 
sion identifies the column. An array with three dimensions yields a "cube" of 
numbers, or perhaps a stack of tables. Four or more dimensions yield an array that 
is hard to visualize, but mathematically no more complex than a smaller dimen- 
sioned array. 

Let us examine arrays in detail. 
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A single-dimensional array element has the form: 

named) 



where: 
name 



is the variable name of the array. The name may be any type 
of variable name. 

i is the array index to that element. On the PET the index i must 

start at 0, 

A single-dimensional array called A, having five elements, would be stored 
as follows: 



A(0) 
A(1) 
A (2) 
A (3) 
A (4) 



The number of elements in the array is equal to the highest element number, 
plus 1 to count array element 0. 

A two-dimensional array element has the form: 

named, j) 

where: 

name is the variable name of the array. It may be any type of varia- 
ble name. 

i is the column index. 

j is the row index. 

A two-dimensional array called A$, having three column elements and two 
row elements, would appear as follows: 



A$(0,0) 
A$(1,0) 
A$(2,0) 



A$(0,1) 
A$(1,1) 
A$(2.1) 



The size of the array is the product of the highest row element plus 1 , 
multiplied by the highest column element plus 1 . For this array, it is 3x2=6 ele- 
ments. 

Additional dimensions can be added to the array: 

name (i,j,k,...) 
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Arrays of up to eleven elements (subscripts to 10 for a one-dimen- 
sional array) may be used where needed in PET BASIC, just as variables can 
be used as needed. Arrays containing more than eleven elements need to be 
"declared" in a Dimension statement. Dimension statements are described 
later in this chapter and in Chapter 4. An array (always with subscripts) and a 
single variable of the same name are treated as separate items by PET BASIC. 
Once dimensioned, an array cannot be referenced with different dimensions. 



FUNCTIONS 

Another element of PET BASIC is the built-in function. A function performs 
a predefined operation on a specified data item or items; they are referred to 
as "arguments." For example, you will use functions to find the square root of a 
number, to convert a floating point number to integer form, to find the number of 
characters in a string, or to set a tab to a certain column on the display screen. 
Functions are a great programming convenience. 

We will summarize the functions supported by PET BASIC now so that you 
can get an overview of what functions are available to you on the PET. The func- 
tions are described in detail in Chapter 4. 

A function may operate on one or more constants, variables, or expres- 
sions; these are termed the arguments of the function. The argument is writ- 
ten in parentheses following the function name: 

function(arg) 

If a function requires two or more arguments, they are separated by commas; 

function(arg1,arg2) 

If the arguments of a function (argi, arg2, etc.) are expressions, which is 
allowed by PET BASIC, then the expressions are evaluated, reducing each argu- 
ment to a single number, before the function itself is evaluated. 

When a function appears in a BASIC statement, it is evaluated before any 
other part of the BASIC statement. 

The following functions constitute the arithmetic function group: 

INT Converts a floating point argument to its integer equivalent. 

SGN Returns the sign of an argument; +1 for a positive argument, -1 
for a negative argument, for a argument. 

ABS Returns the absolute value of an argument. A positive argument 
does not change: a negative argument is converted to its posi- 
tive equivalent. 

SQR Computes the square root of the argument. 

EXP Raises the natural logarithm base e to the power of the argument 
(gargl) 
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LOG Returns the natural logarithm of the argument. 

RND Generates a random number. There are some rules regarding use 
of RND; they are described in Chapter 4. 

SIN Returns the trigonometric sine of the argument, which is treated 
as a radian quantity. 

COS Returns the trigonometric cosine of the argument, which is 
treated as a radian quantity. 

TAN Returns the trigonometric tangent of the argument, which is 
treated as a radian quantity. 

ATN Returns the trigonometric arctangent of the argument, which is 
treated as a radian quantity. 

Arithmetic functions perform commonly needed arithmetic operations on a 
single argument. Here are some examples: 

INT(A) Returns the integer value of A. 

SQR(144) Returns the square root of 144 (i.e., 12). 

SIN(BX(1,0)) Returns the sine of array element BX(1,0). 

The following functions constitute the string function group: 

STR$ Converts a number to its equivalent string of text characters. 

VAL Converts a string of text characters to their equivalent number (if 
such a conversion is possible). 

CHR$ Converts an 8-bit binary code to its equivalent ASCII character. 

ASC Converts an ASCII character to its 8-bit binary equivalent. 

LEN Returns the number of characters contained in the text string 
identified by the argument. 

LEFT$ Extracts the left part of a text string. Function arguments identify 
the string and its left part. 

RIGHTS Extracts the right part of a text string. Function arguments iden- 
tify the string and its right part. 

MID$ Extracts the middle section of a text string. Function arguments 
identify the string and the required mid part. 

String functions let you determine the length of a string, extract portions of 
a string, and convert between numeric, ASCII, and string characters. These func- 
tions take one, two, or three arguments. Here are some examples: 

STR$(14) Converts 14 to "14". 

LEN("ABC") Returns the length of the string. 3 is returned since the 
string has three characters. 
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LEN{A$+B$) Returns the combined length of the two strings. 
LEFT$(ST$,1) Returns the leftmost character of the string ST$. 

The following functions constitute the format function group: 

SPC Space over. 

TAB Tab over. 

POS Next print position. 

You will use format functions to display or print information using any 
desired format. SPC and TAB take a single numeric argument. POS uses a dummy 
argument of 0. 

Examples: 

SPC(IO) Move cursor over 10 spaces. 
TAB(A) Move cursor to column A+1. 

Finally there are some "system" functions you will not use until you are a 
more experienced programmer. The system function group includes these 
functions: 

PEEK Fetches the contents of a memory byte. 

TI$,TI Fetches System Time, as maintained by a program clock. 

FRE Returns available Free Space — the number of unused 

read/write memory bytes. 

SYS Transfers to Subsystem. 

USR Transfers to User Assembly Language Program. 

System functions are useful only in certain classes of special programming. 
They are not used in typical PET programs. 

PET BASIC also allows you to define your own functions with the DEF 
FN function. 

These functions are all described in detail in Chapter 4. 
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FILE NAMES 



Another different and important use of PET alphabetic and numeric charac- 
ters is in the creation of file names. 

Since information cannot be held forever in the PET's read/write memory, 
you must store this information elsewhere — usually on cassettes, although alter- 
natives, such as diskettes, are now available. Cassettes and diskettes both have 
magnetic surfaces on which information is stored magnetically. Information may 
consist of programs or data used by programs. In either case the cassette or disk- 
ette is the magnetic equivalent of a filing cabinet, and the program or data is 
therefore referred to as a file. A program or data file is, physically, a piece of mag- 
netic surface on which the program or data has been stored. You do not need to 
know how or where your program or data is stored, because when you need it, 
you ask for it by name When you first record a file, you assign it a file name. 
Subsequently you use the file name to identify the program or data, so that 
the PET can read it back into read/write memory. 

When you buy a pre-programmed tape, it usually has several programs on 
each side. Each program has a file name. You can load the program you want to 
run by specifying the name of the program in an appropriate PET command. For 
example, suppose a tape has programs stored in this order: 



You want to play HIHO. The LOAD command tells the PET to load a file from 
cassette tape into the PET's read/write memory. To load HIHO into the PET's read/ 
write memory, type in the command: 

LOAD "HIHO" 

The PET will find GAME 1 first; but continues searching for the program with the 
name HIHO. It finds it on the second try and loads the program into read/write 
memory. 

If the file name Is not specified in a LOAD command, the PET loads the 



GAME 1 

HIHO 

BURGLAR 



first program it finds. 



LOAD! 
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So if you don't specify the file name, you will have to give nnultiple LOAD com- 
mands, one for each program up to the one you want loaded. 
Unlike regular variable names, a file name can have up to 128 significant charac- 
ters. However, the length is effectively limited to two display lines when typing in 
file names from the keyboard. Characters in a file name may be any alphanumeric 
or numeric characters. Here are some examples: 

TEST PROGRAM 1 
TP1 

EGGHEAD 

XYZ 

XI 

X2 

You can abbreviate the file name in the LOAD command. The command: 

LOAD "TEST" 

would load TEST PROGRAM 1. 

LOAD "XY" 

would load XYZ. However, 

LOAD "X" 

would load XYZ, XI, or X2, whichever the PET encountered first on the tape. 
The abbreviated file name (like XY and X above) does not have to be the first 
characters in the file name. The PET searches for a file name match on a 
character-by-character basis. 

This can be a boon if, say, you have forgotten the exact file names of several pro- 
grams, but you think you saved them as: 

PROG 1 
PROG 2 
PROG 3 
PROG 4 

when in fact you had actually saved them as: 

PGM 1 
PGM 2 
PGM 3 
PGM 4 

You want to load the last program of the bunch, so you try the command: 

LOAD "PROG 4" 

The PET will go right past PGM 4 without loading it, since the file names do not 
match. Of course, you could give successive LOAD commands without specifying 
a file name. But you can also try the command: 

LOAD "4" 
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Since no previous program has the character 4 in it, PGIVI 4 will be loaded. 
Because of the character-by-character search for file nanne nnatches, you have to 
be careful when giving abbreviated names, especially if your file names are long. 
For example, suppose you save three programs successively as: 

WHILE AWAY THE HOURS 
WHILE A 
WHILE B 

You will not be able to load the second program with a LOAD "WHILE A" com- 
mand. The first program would always be loaded, since it contains that character 
subgroup. 

There is something else you must bear in mind when you make up file names. 
Although the file name may have up to 128 characters, only the first 16 
characters are displayed by the PET. If you save two programs successively as: 

SWEET SIXTEEN TEST 1 
SWEET SIXTEEN TEST 2 

the programs are subsequently listed as: 

SWEET SIXTEEN TE 
SWEET SIXTEEN TE 

so you can't tell which is which by examining file names as they are displayed. 
In summary, you will find it helpful to compose file names using 16 characters or 
less, and you should keep file names about the same length. 



WRITING BASIC PROGRAMS 

A BASIC program consists of a group of numbered statements. In con- 
trast to immediate mode, statements within a program are not executed un- 
til you "run" the program. In other words, when you type in program state- 
ments, nothing happens until you specifically initiate program execution. When a 
statement begins with a line number, PET BASIC stores the statement rather than 
executing it immediately. A line number is put on a statement to indicate that it is 
part of a stored program. 

LINE NUMBERS 

Every program statement begins with a line number that must be 
unique within the program and therefore uniquely identifies the statement. 
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A BASIC statement becomes part of a program if you begin the state- 
ment with a line number. The number becomes the statement's identification, 
just as numbers are used to identify individual houses on a street. For example, if 
you type: 

10 ft=n*2 

instead of: 

Fi=ir*2 

you create a statement that becomes part of a program that will not execute until 
you specifically run the program. 

Every statement in a BASIC program must have a line number. The numeri- 
cal value of the line number specifies the order In which the statements In 
the stored program are to be executed when the program is run. The smallest 
line number identifies the first statement in the program and the largest line 
number identifies the last statement in the program. Statements in between 
will be organized in order of ascending number sequence. The PET BASIC in- 
terpreter takes care of that for you. If you enter a statement out of its number se- 
quence, the BASIC interpreter will move the number to its correct sequential posi- 
tion (whether you want it there or not). 

Remember, the PET BASIC interpreter will always arrange BASIC state- 
ments in ascending order of line numbers. A number at the beginning of a 
BASIC statement puts the statement into a program which does nothing until you 
deliberately run it. When running a program, statements are executed one at a 
time. Statements are executed in sequence of ascending statement numbers 
(unless a statement explicitly changes the execution sequence by branching to a 
statement elsewhere in the program). 



110 
120 
123 
129 
137 



On the PET, a line number can be any integer from to 63999. 

< line number < 63999. 
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Programs and Immediate Mode 

Let us look at how immediate mode can be used to examine values 
assigned to labeled variables within a program. 

If statement 120 below were in a program and you wished to find out the 
value of the component variables in that statement, you could use calculator 
mode to print them. 



; I Program stored 

; / in memory 

120 Fl=E*C/ri 1 
333 END y 

REHDV. 

::'E.. C D 

1 5 1 3 

This illustration assumes that when the program ends, B is assigned the 
value 15, C is assigned the value 1, and D is assigned the value 8. 

The current values of variables remain available until you begin a new pro- 
gram, or rerun the same program. 

BASIC STATEMENT GROUPS 

We are now going to describe the various BASIC statements that you may 
use in a PET program. PET BASIC statements are described twice: 

1. In the balance of this chapter we will describe PET BASIC statements 
briefly by functional groups. This description is intended to familiarize 
you with the types of capabilities available in PET BASIC without 
becoming buried in detail. This description is also sufficient to provide 
background for the discussion of programming concepts that follows. 

2. In Chapter 4 we describe PET BASIC statements individually, with full 
detail. 

While reviewing these statements, remember that PET BASIC has a number 
of "characteristics" that give it a unique personality. These characteristics are de- 
scribed in Chapter 5. 
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Unconditional Branches: GOTO, FOR . . . NEXT, GOSUB/RETURN 



Unconditional branches change the flow of program execution from the 
next sequential statement to a specified statement. 

GOTO is the simplest unconditional branch. It designates a line number at 
which program execution is to continue. 

S"^ GOTO 100 Transfer program control to the statement 

with line number 100. 

FOR . . . NEXT provides loop control: the statements between the FOR 
statement and the NEXT statement are executed as many times as specified by 
the FOR index variable. 

10 FOR 1 = 1 TO 10 These statements will print the numbers 1 

20 ?! through 10 in a vertical column on the 

30 HEXT I display screen. 

The optional word STEP specifies the size of the increment to be added to 
the loop index. 

10 FOR 1 = 10 TO 100 STEP 10 These statements print the 
50 ? I numbers 1 0, 20, 30. ... 1 00 

3Q NEXT I on the display screen. 



GOSUB and RETURN provide the means of branching program control to a 
subroutine and then returning to the statement immediately following the 
subroutine call. 

Subroutine: 

1000 FOR I=fl TO Z STEP S 
1010 PRINT I 
1020 HEKT I 
1030 RETURN 

Calls: 

50 fi=l :Z=10:S=1 

60 GOSUB 1000 



200 . fl= 1 : Z= 1 00 : S= 1 

210 GOSUB 1000 
993 END 



These statements illustrate the PRINT loop introduced above structured as a 
subroutine. The first subroutine call will print the numbers 1 through 10 (as in the 
first FOR . . . NEXT loop example). The second subroutine call will print the values 
10, 20, 30, ... 100 as in the second FOR . . . NEXT loop example. 
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IF . . . THEN is the primary decision mal<ing tool in PET BASIC programs. It 
has two parts: a condition to be tested placed just after the IF; and if the condi- 
tion is satisfied, one or more actions to be taken placed after the THEN, We have 
already used this statement frequently. Here are a few more examples: 

10 IF fl=B+5 THEN PRINT MSGl 

40 IF CC*<"M" THEN IN=0 

41 IF Q<14 AND MOMl GOTO 66 

ON . . . GOTO and ON . . . GOSUB provide a multiple branch capability. The 
following example provides a three-way branch to line 10, 72, or 50 depending on 
whether A=1, 2, or 3, respectively. If A is not in this range, no branch is taken. 

40 ON fi GOTO 10.72.. 50 

Defining Data: LET . . . =, READ/DATA/RESTORE. DIM 

Statements for defining data allow you to specify constant data, assign 
values to variables, and dimension arrays. 

The assignment statement LET . . . =, or just =, is probably the most com- 
mon BASIC statement. The word LET is optional and is usually omitted. 

10 fl=10 

20 E=X+V-Zt3 

<il5 B^. 'si;4.. HL -In this statement only the second = is an 

21 FOR 1 = 1 TO 10^fi<I..'=>'>l-"333,g,^,,,3,3„t. 

The READ statement assigns to variables the values contained in accom- 
panying DATA statements. 

1 IiflTfl 1 .. 20 .. -4 .. 1 6E6 
20 REFlD fl.B.. C..ri 

RESTORE restarts the next READ at the beginning of the first DATA state- 
ment. 

30 RESTORE 

40 FOR 1 = 1 TO 4 REflli f\<I> 

The dimension statement DIM declares the size and dimension of arrays. 
100 rUM f\<3> 

Console Input/Output: PRINT, INPUT, GET 

Console input/output statements provide the ability to interact with the 
keyboard/display screen during program execution. 

PRINT prints data on the display screen. PRINT and ? are equivalent. 

10 PRINT "HOME" 
30 ?I=I..B.. C 
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Both INPUT and GET input data from the keyboard to a program. INPUT first 
prints a question mark, then inputs a line of data, terminated by a carriage return. 
One or more variables may be input with one INPUT statement. 

In response to execution of the statement: 
1000 INPUT ft..Bt- 

if the following is input at the keyboard: 

10.. "SIMPLE ONE" 
then A=10 and B$="SIMPLE ONE". 

INPUT can also print a message before inputting: 

4001 INPUT "NAME".; fit 
Upon execution, this statement prints on the display: 

NAME? 

If you enter the name Susanna: 

HflME?SUSfiNNfi 
the result is that A$=SUSANNA. 

GET inputs one character only. This is useful when you want just one- 
character responses, since the user does not need to enter a carriage return. 

Unlike INPUT, where PET BASIC handles the input process, you must pro- 
gram everything yourself when using GET. Your program must wait for a key to be 
pressed and then check to see if an appropriate key has been pressed. Use a string 
variable with GET. If you use a numeric variable, the PET returns a zero either if no 
key has yet been pressed or if a zero is entered. When the GET variable is a string, 
a null value is returned until a key is struck. The character you input in response to 
a GET will not be displayed unless you include a statement to cause the display. 

The following line waits until any key is pressed: 

10 GET C*IF C*="" GOTO 10 

The following group prints a message and waits until a G is pressed on the 
keyboard. It does not respond to any other key. When a G is pressed, it displays 
the character, waits a little bit, then clears the screen and prints the message 
"HERE WE GO." 

500 PRINT "PRESS G WHEN REflDV" 

510 GET C^IF C*<>G THEN GOTO 510 

520 PRINT C$ 

530 FOR 1=^1 TO 100: NEXT 

540 PRINT ".THERE WE GO" 
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File Input/Output: OPEN. CLOSE, PRINT#. CMD, INPUT#. GET# 

File input/output statements provide programmed communication witli the 
cassette tape unit or any other external peripheral unit that can input and/or out- 
put data. 

OPEN assigns an identifier, called a logical file number, to a physical device 

and readies the physical device for an input/output operation. Physical devices 

have preassigned numbers. Logical file numbers are made up by the programmer, 

just as variable names are. 

10 OPEN 5. 1 .• e.. "DflTFlFILE" Assigns logical unit 5 to physical device 1 

(the console cassette unit) and opens the 
cassette for read (code 0) from file name 
DATAFILE. 

CLOSE is executed when all accesses to the logical file have been com- 
pleted. 

500 CLOSE 5 Close logical file 5. 

PRINT# operates essentially like PRINT but outputs to an external device. 
40 PRINT#3.. fi Output the value of variable A to logical file 3. 

CMD opens communication with an external device so that you can print to 
an external device what is normally displayed on the screen. 

40 CMD 3 Output subsequent log to logical file 3. 

INPUT# operates somewhat like READ, but it inputs data from an external 
file rather than from DATA statements in the program, as READ does. 

50 IHPLIT#10.. 1=1 Input and assign to variable A the next data 
item from logical file 10. 

GET# allows you to fetch external data one character at a time. 

60 GET#7.. c* Input and assign to variable C$ the next data 

item from logical file 7. 

None of these statements is used alone in a program: rather, successful in- 
put or output to an external device requires a certain sequence of file input/output 
statements, all having compatible parameters, that together provide an input or 
output capability. The format of these statements is described in Chapter 4. Using 
these statements to perform file I/O operations is described further in Chapter 5, 
File Input/Output. 

Miscellaneous: REM, POKE 

REM is a remark, or comment line. Remarks should be used frequently in a 
program to remind the programmer what is happening. 
10 REM FETCH DflTfl IF EUFFEF.: EMPTV 
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POKE stores a specified byte value into the PET's memory. POKE is similar 
to a system function in that it is instrumental in performing certain specialized 
chores; these are described in Chapters 5 and 6. POKE is not used often. 

5S POKE 1.. flD Store the value of variable AD in memory 
location 1. 



Program Termination: END, STOP, WAIT 

Program termination statements end, or temporarily halt, a PET BASIC pro- 
gram that is executing. These statements are optional: in particular, an END state- 
ment is not required to end a PET BASIC program. 

Examples: 

500 EHD Provides two program termination points. 



600 END 
60 STOP 



100 WRIT 5; 



Performs a programmed BREAK function, like 
the STOP key from the keyboard. Program 
execution can be continued by typing CONT 
from the keyboard. 

Wait until memory location 525 becomes 1, 
then continue program execution. WAIT is a 
special statement not used in normal program- 
ming chores. 



BASIC Commands: NEW. CLR. LIST, LOAD. RUN. CONT. SAVE. 
VERIFY 

BASIC commands are a group of operations that are normally used in im- 
mediate mode. 



Examples: 
NEW 
CLR 
LIST 

LOAD "ASKME" 

RUN 
CONT 



Start new program: set variables to zero or null. 
Set variable to zero or null. 
List current program. 

Search tape for program named ASKME and 
load it into memory. 

Execute program. 

Continue program execution at line following 
last STOP. 



SAVE "PETPRO" 



Write current program to tape cassette unit. 
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VERIFY "PETPRO" Verify the tape copy of the program named 

PETPRO by comparing it with the program in 
memory. 

DEVELOPING A PROGRAM 

When the PET is powered up it is in immediate, or calculator mode. Entering 
program mode is simple: just begin entering statements that are preceded by line 
numbers. Remember that programs are executed in the ascending order of the 
line numbers, which can range from to 63999. 

You will find when developing a program that you will have to change, or 
edit, your program at least a little, and probably a lot, before you get it running. 
Because of this, it is helpful to select line numbers that increment by 5. 10, or 
even 100, rather than incrementing by 1. If you have to insert, say, three state- 
ments between two existing lines of a program, you can do so without having to 
renumber any of the existing lines. Do not renumber existing lines in a program 
unless you absolutely have to; it is easy to cause errors in loops and GOTO state- 
ments by not changing the line number everywhere it is referenced. 

You will normally key in statements, from your handwritten notes, in the 
order in which they are to be executed. However, PET BASIC does not require 
statements to be entered in order. You could key in statement 10, then statement 
100, then statement 20. The PET sequences the statements by line number before 
listing or executing the program. 

We return now to the "mini-program" presented at the beginning of this 
chapter. 

C:*= " W " FOR 1 = 1 TO 880 ■ ?C* .: ■■ NEXT ■ ? " PHEW ! " 

This line entered in immediate mode prints the letter W (or whatever 
character you put between the quotes) in each position of the next twenty lines of 
the display screen. It ends by printing the word PHEWI. 

We will describe in a little more detail how this immediate program works. 
Then we will develop this program into a stored program to illustrate the process 
so that you will feel more comfortable approaching the task of creating, listing, 
running, debugging, and editing programs on the PET. 

Multiple Statements on a Line 

There are actually five statements in this one-line immediate mode program. 
Each statement is separated by a colon (:). The format for multiple statements on 
a line in immediate mode is: 

statement;statement . . . :statement 

The format is the same for one line of a stored program, except that the line 
has a line number: 

line number statement:statement . . . :statement 
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Only one line number is needed for multiple statements placed on one 

line. 

In immediate mode, you must put multiple statements on one line. If you at- 
tempted to enter the display program one statement at a time, the result would 
not be the same. Look at the following example: 

C*="W" 
REPIDV. 

FOR 1=1 TO 800 

RERDV. 

U 

REflDV. 
NEXT 

REflDV. 
?"PHEW! " 
PHEW! 

REflBV. 

m 

The first statement can be entered separately, since variable assignments 
are stored. But just one W is printed, instead of twenty lines of W's, because the 
FOR . . . NEXT loop statements are not executed as a unit. In immediate mode, the 
PET executes one line with no memory of what the previous line was. The only 
successes were the assignment statement C$="A" and the ?"PHEW!". In im- 
mediate mode you do access to the current values of all variables. Colons can be 
used to execute "mini-programs" up to 80 characters (two display lines) long in 
immediate mode. 

In program mode, putting multiple statements on one line is handy for some 
uses, but is indispensable in only one case. 

Where two, or sometimes more, statements perform a single operation, they 
can optionally be placed on one line and separated by colons: 

10 GET C*:IF C*="" GOTO 10 

or 

10 GET 

20 IF C*="" GOTO 10 

The only case in a stored program where multiple statements on one line are 
treated differently than the same statements on separate lines is with an IF state- 
ment. Multiple statements appearing after the IF . . . THEN statement are ex- 
ecuted only where the IF condition is satisfied. Consider the following line: 

50 IF fl=0 THEN E-C -0=0+1 
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Here there is a second statement following the IF . . . THEN statement. If the con- 
dition is satisfied (A is equal to 0), both B=C and C=C+1 are executed. If the con- 
dition is not satisfied (A is not equal to 0) neither of these actions is executed. 
Note particularly that C is not incremented, whereas for the statements; 

50 IF fl=0 THEN E=C 
55 C=C+1 

C is incremented whether or not the IF condition is satisfied, since it is on a sepa- 
rate line from the IF . . . THEN statement. 

Multiple statements on one line in a program save some memory space, 
since there is only one line number to keep track of. In the general case, it is sug- 
gested that you do not make greater use of multiple statements on a line than 
necessary, as in the case of performing several actions for a single IF condition. 
Compacted programs are difficult to read, edit, and debug (errors in programs are 
commonly referred to as "bugs," therefore the term "debug" means to eliminate 
errors). 

PRINT Formats: Line, Continuous, Tabbed 

Normally each PRINT statement prints a new line on the display. That is, 
a RETURN is forced, so that the next PRINT statement begins printing at the 
beginning of the next line. This can be overridden by placing a semicolon (;) at 
the end of the PRINT statement. There is an example of this in the display pro- 
gram: 

c$="i-i" ■ FOR 1^1 TO see : ? c* .; : next ? phew I " 

1 Continuous line format (;) 

The semicolon in this PRINT statement is what provides continuous line 
printing of the character over 20 lines of the display. If the semicolon were not 
there, each character would be printed at the beginning of a new line, or you 
would see all 800 W's printed in a single column at the left of the screen. 
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C*="W":FOR 1=1 TO 800:? C* : NEXT-?" PHEW ! " 



W 



Display appears to blink 
as W's are written over W's 



W 

W 
M 

PHEW! 



REfiDV. 

m 

The display appears to blink as W's are written over W's. After twenty lines 
have been printed, the program statements scroll off the top of the screen. To stop 
the overprinting of W's, change the TO index from 800 to 20 (since we are always 
printing a total of 20 lines in the program). 

Ct="W":FOR TO 20 ? C*.^ :HEXT :?"PHEW! " 
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C*="W":FOR 1 = 1 TO 20: ? C:*:NEXT:?"PHEW! " 

U 

W 

W 
l-i 
M 
W 
U 
W 
W 
W 
Ui 
l-J 
W 
U 
i>} 

W 

PHEW ! 
REflDV. 

m 

This is not nearly as interesting a display as continuous line printing of the 
characters. Single line printing is more connmonly done for different values. If you 
print the value of I rather than C$ you can print the numbers 1 through 20. 

FOR 1=1 TO 20:? I :NEXT:?"PHEW! " 
1 
2 
3 
4 
5 
6 
7 



10 
11 
12 
1.3 
14 
15 
16 
17 
IS 
19 
20 
PHEW ! 

REflDV. 

m 
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Return now to the original progrann line that gives continuous line printing 
by the presence of a semicolon. 

C*="W":FOR 1 = 1 TO 800:? C*.; : next:?" PHEW! " 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

WWWNWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

PHEW ! 
REfinV. 

The FOR . . . NEXT loop index I is used as a counter to indicate the number of 
W's to be printed, in this case 800. For the first PRINT, a new line is begun and the 
character W is printed. The semicolon prevents a RETURN to the next line, so the 
cursor remains at the position following the first W. The second W is then printed, 
with the cursor left in the position following it, and this pattern continues. At the 
end of the line, the cursor moves to the next position, which is at the beginning of 
the next line. This is continuous for 20 lines. 

Why does PHEW! print on a new line? It doesn't really; it appears to start a 
new line because the last character prints in the last position of the previous line. 
Modify the value of 800 to, say, 780 and PHEW! prints on the same line as the end 
of the characters. Reenter the line to get the display shown below. 

C*="-" :FOR 1 = 1 TO 780:?C*.: -NEXT:? "PHEW! " 
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Ct="-"FOR 1=1 TO 780:?C*J -NEXT: ? "PHEW! 



PHEW ! 

REflDV. 

m 

Concatenation, or printing items right next to each other with no 
spaces in between, is how the semicolon worl<s for string data. Numeric data 
also prints in a continuous line format, but with a space between the num- 
bers (two spaces if a positive number, since the + sign is not printed). 

To illustrate this, change the string variable to nunneric for entry of any posi- 
tive or negative one-digit number; and, since three positions will be taken for 
each number, change the ending index to 800/3=267. The line will look like this, 
selecting 5 as the number to be printed: 

C=+5 :F0R 1 = 1 TO 26? PC; :NEXT ■?"PHEW! " 
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C:=+5 : FOR 1 = 1 TO 267 • ?C ; : NEXT : ? " PHEW ! " 

55555555555'1'n 
55555555555555 
5555555555555" 
555555555555 5' 
5 5 5555555555 5" 5 
5555555555555" 
5555555555555' 
5 55555 5 5 555 5" 5' 5 
5 5 5 5 5 5 5 5 5 5 5 5" 5" 
5 5 5 5 5 5 5 5 5 5 5" 5' 5" 
5 5555555555 5' 5" 5 
55555555555 5" 5" 
5555555555555 
555555555555 5 5 
5555555555 5" 5' 5' 
5 5 5 5 5 5 5 5 5 5 5" 5' 5" 
5 5555555555 5" 5' 5 
55555555555 5' 5' 
555555555555 5' 
55555555555 5 5' =1 
PHEW! 

RERDV. 



When you run this program, note that there is one space between the last 
nunnber printed and the word PHEW! This shows that the nunnbers are printed in 
the following fornnat: 



Position 1 2 3 
± n 

L 



- Space 

^ Blank if positive, 

- if negative 

Another example of this format can be obtained by changing the value of C 
to minus 1 : 

C:=-l FOR 1 = 1 TO 26? : ?C.: NEXT ^ ?"PHEW ! " 
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=-1 FOR 



TO 267 :?C; :NEXT 
-1 



-1 



?"PHEW! " 
-1 -1 - 



-1 
PHEW ! 

REPIDV. 

m 

Up to now the program line has printed just single characters or single 
digits. Multiple-digit numbers can be printed, but they will scroll the program line 
up off the screen unless the TO index is also adjusted. If we change the value of C 
to 2001, we will have a 6-digit print field, so adjust the TO index from 267 to 
800/6=134: 



C=i'ti01 FOR 1 = 1 TO 1.34: ?C.; : NEXT - ■? "PHEW! " 
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C=2001:FOR 1 = 1 TO 134 : ?C.; : NEXT: ?"PHEW! " 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 
001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 
001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 
2001 2001 2001 2001 2001 2001 200 

1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 
2001 2001 2001 2001 2001 2001 200 

1 2001 2001 2001 2001 2001 2001 2 
001 PHEW! 

RERDV. 

m 

When you print this exannple, you can see that the continuous line format 
breal<s the numbers between lines. This can be eliminated by using a tabbed line 
format. 

The tabbed line format, indicated by a comma (,), prints at four tab posi- 
tions every ten positions: 

1 11 21 31 

^ Leftmost position=1 

In the display program, inserting a comma in the PRINT statement, in- 
stead of a semicolon, causes the numbers to be printed out in four columns. At 

four numbers per line, the TO index will be 4*20=80. Type in the line: 
C=200 1 ■■ FOR 1 = 1 TO 80 ?C: .. : NEXT : ? " PHEW ! " 

When you run this program, note that the first position in each field is 
reserved for the sign. 
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c=2ei0i 


:FCfR 1 = 1 TO 80:?C. 


. : NEXT:? "PHEW! " 




2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


200 1 


2001 


2001 


200 1 


2001 


2001 


2001 


2001 


200 1 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


200 1 


2001 


200 1 


2001 


2001 



PHEW ! 
REFlDV. 

The use of commas between print items is a convenient way to print with 
tabs in PET BASIC. You don't have to do anything in your program except use 
commas to separate print items. 

Tabs also work for strings. As an example, enter the following immediate 
mode lines to print out twenty lines of tabbed character data: 

ft*="HUP ! " ■ E*="TWO ! " : C.*=" THREE ! " ■ Ii*="FOlJR ! " 
FOR 1 = 1 TO 20 ■ ?fl* .. E* .. C* . D* : NEXT : ? " PHEW ! " 

We use continuous line printing in the display program line because it is the 
most effective of the three print formats — single line printing, continuous line 
printing (;), or tabbed printing (,) — for the display program. As we have seen, 
numeric data does not blanket the screen, even with continuous line printing, 
because PET BASIC leaves a space between the numbers. 
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To discover some other features of PET printing, return to the display for the 
number 2001. 

C=2eei:F0R 1 = 1 TO 134;?C:,: :HEXT:?"PHEW! " 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 
001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 
001 PHEW! 

REflDV. 

m 

Now change the value of C from 2001 to 44 following these instruc- 
tions: HOME the cursor, CURSOR RIGHT two positions and type in 44, CURSOR 
RIGHT once and DELETE twice. With a 2-digit number, the print field is 4 (one for 
the sign, two for the number, and one trailing space), so the TO index will end at 
800/4=200). Change the TO index from 134 to 200: CURSOR RIGHT ten spaces 
to position the cursor on the 1 of 134 and type in 200. Now press RETURN and 
(surprise!) you will get the display shown below. 



95 



=44 : 


FOR 


1 = 1 






?"PHEW! " 


1 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 
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44 
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440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 



PHEW ! HEW ! 
REflDV. 

Some of the digits from the previous 2001 display were not blanl<ed out. 
PET BASIC uses a skip (cursor right) character, not blanl<s, between fields. 
When you are printing over existing data, characters between fields — or 
characters in tabbed format — are not erased. Also note that there is a remain- 
ing "HEWI"; PET BASIC prints the "PHEW!" but leaves the remaining positions of 
the line just as they were; it does not blank the rest of the line. This can be a 
great advantage when you are adding to data already on the screen, and you 
should bear this capability in mind. For the display program line, however, it is 
leaving extraneous characters in the display. 

Programmed Cursor Control 

To remove extraneous characters from the display, you can have the 
program clear the screen before printing a new display. To do this, insert a 
PRINT CLEAR SCREEN literal ahead of the FOR . . . NEXT loop: 

C=44 ? " :3" : FOR 1 = 1 TO 200 : ?C* .: : NEXT ? " PHEW ! " 
"^Clear Screen (shift of CLR/HOME key) 
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Now when you press RETURN, you will see the screen blank and the nunn- 
bers begin printing on the second line. 



44 


44 


44 


44 


44 


44 


44 


44 


44 


44 
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44 
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44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 



PHEW ! 
REflDV. 

To begin printing on the first line, insert a semicolon after the PRINT CLEAR 
SCREEN. Change the program now to print characters again. With the extra line 
of forty characters, the program can print 840 characters without scrolling any off 
the top. Type in the line: 

C:*="Fl" : 7"7}". ■■ FOR 1= 1T0S40 : ?C*.; : NEXT • ?"PHEW ! " 

The only real change from the original line is the CLEAR SCREEN. The 
CLEAR SCREEN adds a nice touch to the display program. The display blanks im- 
mediately, instead of gradually scrolling previous text off the top. End the same 
line again with the same character. You get a new display with every character 
reprinted instead of having duplicate characters appear not to be printed again. 

Any of the six cursor control functions can be operated under pro- 
grammed control by printing them as string literals. The cursor control string 
symbols and keys are listed in Table 3-1. Programming cursor controls is de- 
scribed in Chapter 5. 

A Stored Program 

The biggest problem with a program entered in immediate mode is that 
you have to reenter it every time you want to run it, as with the display pro- 
gram. The solution is to turn it into a stored program. 
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The program has already been developed in immediate mode. Now that the 
groundwork is done, making a stored program out of the program that we know 
works in immediate mode is simple. Just type in the statements line by line, 
beginning each statement with an increasingly larger line number. Remember 
that you still need the semicolons, which are the PRINT format, but not the colons 
when putting statements one per line. Terminate each line with a RETURN. 

REflDV, 

lie 7"D"i 

120 FOR 1=1 TO 340 
130 PRINT C*; 
140 NE.XT 

150 PR I NT "PHEW! " 

Each time a numbered line is entered, PET stores the line in memory. You 
will not have to type the display program line in again now that it is a stored pro- 
gram. You then use the LIST, RUN, and SAVE commands to recall and rerun your 
program. 

Listing a Program 

When the display program looks correct, list it and look it over again. To list 
a program, type the word LIST on any free line and hit RETURN. 

LIST 

100 C*="fl" 
110 ?".T'.: 

120 FOR 1=1 TO 840 
130 PRINT C*.: 
140 NEXT 

150 PRINT"PHEWI " 
RERDV. 

Note that the ?'s you entered have been expanded to the word PRINT; PET 
does this automatically. If you see any errors, correct them. 

Running a Program 

When the program looks completely correct, execute the program by typing 
RUN, followed by a RETURN. 

RUN 

If the program was typed in correctly, you should see the same display we 
have used throughout this chapter, only with the letter A. 
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flflflflflflflfilfiflflflflflflflfiflflftflflflflflflfiflflflfilflflftflfiflflfifl 
flflflflmfififlfiflPlflflflflflftflRflfiflflfilflfll=lflFlftl=lflfifll=lflf=lflR 
flfiPlflflflfiflRflflRflflflflflfififlfiflfififlflRflflflfiflFlflflfiflFlfifl 
flflRflflflRRflflRRRRRRflflRRRRRflflRflRflRRflRRflflflflflfl 
flRflflflflflRRRRRRRRRflRRflflflflflRRRflRflRflRfiRflflflRfl 
flRfififlflfiflRflRRflflflRflflRRRflflflflflflflflRRRRRflflflflflfl 
RfiflflflflflRflflRRRflflflRRRRRRflflflflRRflRflflflflflflflflflR 
RRflRflflRRRRRRflRRRRflflflflflfiflflRRRRRRflflflflRflflfiR 
RRRRflRRflflRflflRRRRRflRRflflflflflRRflflRRflRflflRflflflfl 
flRflflflRflRRRflflRflflflflflflRRRRRRflRflflRflRflRRRRflflfl 
RRRRflRRRflRflflRRflflflflRRRflRflRflRRflflflRflflflRRflflR 
RflRRflRflflflflRRRflflRflRflRRRRRRRflRHRRflflflRflRflflR 
RRRRRRflRRRRRRflflRRRRRRRRflflRRRRflflRflRRflflRRR 
RfiflflflRRflRRRRRRRRRRflRRRflRRflRRRflRRflflRflflRRR 
RflRRRRRRRflflRRRRflRRRRflRflRRflRRRflRRRRflflflfiflfl 
RRRRRRRRflflRRflRRflRRRRRRflRflflflflRRRRRflRRflflRfl 
RRRRflflRRRflRRRRRRRRRRRRRRRRRRflRRRflRRRRflflfl 
flfiRRRflRRRRRRRRflflRflRRRRflflflflRRRRflflflRRRRRHfi 
RRRflfiflRflflRflRRRRRflflflRflRRRRRRRflRRRRRRflflRRR 
RRRflflflflRRRRflRRRRRRRRflRflRRRRRRRRRRflRRRRflR 
PHEW ! 

RERBV. 

m 

Enter RUN to run the progrann again. The program executes the sanne as 
before, without having to type in the display progrann line. 



Editing a Program 

Running the program to display A's quickly becomes boring. You can 
change the display character by editing line 1 00. To edit a line, the line must ap- 
pear on the screen. You don't need to list the entire program, just one line. To list 
just one line (line 100, for example), use the following command: 

LIST 100 
This lists just the line specified. 

LIST 100 

100 C:*="fl" 
RERDV. 

m 

Move the cursor to the A, change it to another character, say X, and press 
RETURN. If you list the entire program, you will see that the change has indeed 
been made. Program editing can be done merely by changing a statement that 
appears on the screen, then pressing RETURN. 
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LIST 



100 C*="X" 
110 7"71"i 

120 FOR I:=l TO 840 
130 PRINT C*; 
140 NEXT 
150 PR I NT "PHEW! " 

To delete an entire line, type the line number followed immediately by a 
RETURN. When you list the program, you will see that the entire line and line 
number are no longer included in the program. 

To add a line in a program, type in the line, no matter what the line num- 
ber, at the first blank line after the end of the current program. When you list 
the program, you will see that the line you just entered has been placed in its 
proper numerical sequence within the program. 

When you type In a line with the same line number as a line that already 
exists in the program, the new line replaces the existing line in the program 
after you press RETURN. You can use this feature to edit lines that are easier to 
change by retyping than by character correction techniques. 

Saving a Program 

Now that you have a program in PET's memory that works, you can store 
the program on a cassette. Once a program is stored on cassette, you can 
load it into memory and run it any time. 

To save a program in memory on cassette, put a blank cassette tape in 
the console cassette unit and type the SAVE command. Although it is not 
necessary, it is a good idea to name the program; we'll name it BLANKET. 

SAVE "BLANKET" 

PRESS PLflV & RECORD ON TAPE # 1 " Hold down REC key, 

OK then press PLAY key. 

WRITING BLANKET 

READV. ' Tape stops. 

Rewind the tape to the beginning, label it and keep it in a safe place. 

When you turn the PET off, the contents of memory are not saved, so saving 
a program (especially a working program) on tape is a good idea even at inter- 
mediate stages of program development. 

Loading a Saved Program 

If you turn the PET off, the program in memory is lost. To load the saved 
program, power up the PET, insert the cassette into the console tape unit, 
and give the LOAD command. 
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i_OflD "BLANKET" 



PRESS PLflV ON TAPE #1 -> Press PLAY key; tape begins moving. 

OK 

SEARCHING FOR BLANKET 
FOUNB BLANKET 
LOADING 

READV.-« Tape stops. 

To list the program, use the LIST command. You should see your entire 
BLANKET program. To execute the program, enter RUN. It will display the 
character that was last stored in line 100. 

Or, to load and execute a program from cassette tape with the RUN key, 
ready the tape and depress the RUN key. The program will load and execute. 

Interactive Programming 

This is the current procedure for using program BLANKET once you load it 
into memory: 

1. List line 100. 

2. Move the cursor to the character between quotes and type the 
desired display character, then press RETURN. 

3. Enter the command RUN. 

It would be better if you could change the character without having to list 

a line of the program. Recall that assignment statements can be entered sepa- 
rately in immediate mode. Can you use an immediate mode assignment state- 
ment to change the display character? 

To try it, first eliminate the assignment statement in the program. To delete 
a program statement, type the line number followed immediately by a RETURN. 
LIST 100 

100 C*="A" 
RE ADV. 

100 Type line number, then key RETURN. 

LIST 

110 PRINT "n".; 
120 FOR 1=1 TO 840 
130 PRINT C*.: 
140 NEXT 

150 PRINT "PHEW! " 
RE ADV. 

m 

Line 100 is no longer in the program. 

Type in the statement C$="X" in immediate mode, then run the program. 
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Before RETURN 



After RETURN 
PHEW ! 



REfiDV. REfiDV. 

RUNS m 

The screen blanks and the word PHEW! is printed, but the X's are not 
printed in between. Obviously the value of C$ is not being transmitted to the pro- 
gram. 

RUN clears all variables to and all strings to null before beginning execu- 
tion of a program. So C$ was set to null and that was what was printed in the pro- 
gram loop (a null is "nothing"; it does not print nor does it move the cursor). 

Is there a way to transmit the value of C$ to the program? Instead of using 
RUN, which initializes variables, you can use GOTO 1 10 (1 10 being the line num- 
ber of the first line of the program). This does not change any variable values. 
Before RETURN 
C:*="X" 

REfiDV. 

GOTO iiem 



After RETURN 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

PHEW ! 
REfiDV. 
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You can repeat the command GOTO 1 10 to get the same display. 
Now the procedure for running the program is as follows: 

1 . In immediate mode enter the assignment C$="y" where y is any dis- 
play character. 

2. Enter the command GOTO 1 10. 

There are only two steps in running the program, but the procedure is still a 
bit awkward. You must type in a line (the assignment statement), and if you enter 
RUN instead of GOTO you have to start all over. A much better way would be to 
have the program fetch the display character while it is running. You can do 

this with the GET statement. 

The GET statement assigns a single character entered from the keyboard to 
the specified string variable. 

When PET BASIC begins execution of the GET statement, it sets the string 
variable (in our case C$) to null, that is, C$="". As soon as a key is pressed at the 
keyboard, it assigns the character to the string variable. Since the program runs 
much faster than you can press a key, you add an IF statement to check that a key 
has been pressed before the program continues. 

Add the following line to the program by typing in the line. You do not need 
to list the program before adding the line. 

100 GET C$-IF C*="" GOTO 100 

Now list the program and make sure you entered the line correctly. 

LIST 

100 GET C*:IF C*="" GOTO 100 

110 PRINT "rJ".; 

120 FOR 1=1 TO 840 

130 PRINT C*.; 

140 NE,XT 

150 PRINT "PHEW ! " 
RERDV. 

Run the program. The screen blanks and the cursor disappears. Press any 
data key. You should see the display program display the character of the key you 
pressed. Run the program again. Press any data key. The display appears with the 
new character. 

The procedure for running the program is now: 

1. Enter the command RUN. 

2. Press any key. 

This is a real improvement over the original program. However, it is a little 
disconcerting to have the screen completely blank out while it waits for you to 
press a key. You can add a line to the beginning of the program that promptsthe 
user to press a key. Type in the line: 

90 ?"HIT fl KEV" 
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List the program and check the new line for any errors. 
LIST 

90 PRINT "HIT hi KEV" 

100 GET C-$-lF Ct="" GOTO 100 

110 PRINT "n"; 

120 FOR 1=1 TO S40 

130 PRINT C*.. 

140 NEXT 

150 PRINT "PHEW! " 
RERDV. 

Now when you run the program it gives instructions for using it, so you are 
sure of what to do. Run the program several times to display different characters 
and note how much easier the program is to use. 

There is one important modification left to make. You will want to run the 
program more than once — that is, display a character, then display another 
one, etc. By modifying the program to go back to its beginning point instead of 
ending, you won't have to type in RUN each time. Add a line at the end of the pro- 
gram to jump back to the beginning of the program: 

160 GOTO 90 
Again, display the program and check the new line. 
LIST 

90 PRINT "HIT fl KEV" 

100 GET C.*-IF 0*="" GOTO 100 

110 PRINT "n".: 

120 FOR 1=1 TO 840 

130 PRINT C*.; 

140 NEXT 

150 PRINT "PHEW! " 
160 GOTO 90 
REflDV. 

Now it is even easier to use the program. Enter RUN and follow directions. 

Of course, you have to use the STOP key to exit from the program. This 
can be eliminated by programming for one particular key, when pressed as a 
data key, to signal termination of the program. For example, if the RETURN key 
were pressed instead of a data key, the program could end. To do this, add a 
check for carriage return after a key has been pressed. 

For all data keys, as well as the cursor control keys, you can check for a 
key as a string literal. For example, to branch to statement 200 if the Y key is 
pressed, you would enter the following statements: 

100 GET C$ ■ IF Ct="" GOTO lOO 
105 IF C*="V" GOTO 200 
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RETURN presents a special problem that other keys do not. You cannot reference 
RETURN as a string literal: 



■ Cannot do 



This is because any time RETURN is pressed, PET BASIC stores the program line 
in memory and goes to the beginning of the next line. You can, however, use the 
CHR$ function to check for a RETURN key. CHR$ allows you to assign an ASCII 
code value to a string variable and treat it as a string. The ASCII code value for a 
RETURN (referring to Appendix A) is 13. 

Before programming the check for carriage return, consider what to do if 
there is one. The last line of the program branches back to the beginning of the 
program. To terminate program execution, you need to branch beyond that. Add 
the following line: 

170 END 

Now add the check for RETURN as line 105: 

i05 IF C*=CHR*< 13::' GOTO 170 

Note that we could have written, in place of line 170 and line 105: 
105 IF C*=CHR*a.3::' THEN END-' Option 

If you choose this option, it is generally good programming practice to have 
the program termination point at the physical end of the program. It is more 
difficult to find termination points embedded in the program. 

Without the PET's READY message being printed each time, there are two 
additional lines available on the screen. This allows 80 more characters (at 40 
characters per line) to be printed. Change the 840 in line 120 to 840+80=920. 
Line 1 20 will read: 

120 FOR 1=1 TO 920 
List the program: it should look like this: 
LIST 



90 PRINT ' 
100 GET Ci 
105 IF C*= 
110 PRINT 
120 FOR 1= 



HIT ft KE 
■■IF C* 
CHR*';i3,> 
" T' ■ 
1 TO 



"" GOTO 100 
GOTO 1 70 







130 PRINT C*.; 
140 NEXT 

150 PRINT "PHEW! ' 
160 GOTO 90 
170 END 
REflDV. 
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When you run the program, you will find that it is scrolling up one line, leav- 
ing a blank line at the bottom of the screen. This is because PET BASIC gives a 
RETURN after printing HIT A KEY to move to a new line in preparation for the next 
print. We can see this by enabling the cursor to blink. 

Normally you cannot see the cursor because its blinking is inhibited by the 
PET before running a program. However, you can enable the cursor to blink by 
adding the following statement to the beginning of the program: 
30 POKE 548.0 Enable cursor 

This is a system location that is discussed further in Chapter 6. Run the pro- 
gram with this line added and you will see the cursor blinking at the bottom line. 

PHEW ! 
HIT H KEV 

This program does not really need the cursor, so delete line 80. 
To prevent the blank line, add a semicolon to the PRINT statement in line 90. 
We should also add a prompt that RETURN is what is used to exit from the pro- 
gram, To incorporate these changes, line 90 should now be edited as follows: 
90 ?"HIT fl KEV OR <R> TO EHD".. 
As a final task, you might read over the program and add remarks for any 
lines that are not clear. Comment on how the number 920 was devised; you can 
optionally put the remark on the same line, using a colon to separate statements: 

120 FOR 1=1 TO 920 : REM 920.-'40=23 LINES 
Add a reminder that n is to clear the screen; optionally align the remarks: 

110 PRINT "HI".: REM CLEAR SCREEN 

Finally, add a few lines at the beginning of the program to describe it. The final 
program BLANKET appears as follows. Save it on tape. 



10 REM *♦♦♦*♦* BLANKET *.♦**.*** 
20 REM CONTINUOUS-LINE DISPLAV OF ONE 
30 REM CHARACTER ENTERED FROM THE 
40 REM KEVBOARD 
50 REM 

90 PRINT "HIT A KEV OR Cf::> TO END".: 

100 GET Ct-IF C*="" GOTO 100 

105 IF C*=CHR*';i3.'> GOTO 170 

110 PR I NT "H".; -REM CLEAR SCREEN 

120 FOR 1=1 TO 920 : REM 928/40=23 LINES 

130 PRINT C*.: 

140 NEXT 

150 PR I NT "PHEW! " 
1S0 GOTO 90 
170 END 
READV. 



Figure 3-1. Program BLANKET 
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Spaces Are Not Needed 



Are you struggling with tine question of wliere to put spaces in the line and 
where not to? Don't worry. PET BASIC interprets a line by the elements in it. 
Spaces, or blanks, are irrelevant to the PET's decoding of a line. For example, the 
line: 

120 FOR 1=1 TO 210 

could read: 

120 FOR 1=1 TO 210 

or 

120 FORI=1TO210 

You can put extra spaces anywhere but within reserved words or other 
BASIC commands, such as GET# and INPUT#, with the exception of GOTO, 
which may be written as either GOTO or GO TO. The only place you must put 
spaces is within quotation marks where you want spaces to be part of the text 
string. Blanks in a statement are to improve readability of the program: do use 
them for this. 

Character Correction Review 

By now you are probably familiar with correcting typing errors on the PET. If 
you make any typing errors, use the three character correction methods: 

1. Typeover. If you spot an error on the line you are typing, backspace 
(cursor left) to the character and type the new, correct character over 
the old, incorrect one. Then cursor right to where you stopped and con- 
tinue typing. 

2. Delete. If you spot an error on the line you are typing, press the DELETE 
key to move the cursor back to the end of what is correct and retype the 
line from there. Use DELETE if you make an error inside quotation 
marks: other cursor control keys will not function within text strings, as 
they are programmable in the strings. 

3. Insert. If you have omitted one or more characters on the line you are 
typing, cursor left to the right edge of the omission and press the IN- 
SERT key once for each character to be inserted. Then type in the miss- 
ing characters. 

MODIFICATION EXAMPLE TASKS 

Following are some sample modifications you can make to the BLANKET 
program. The idea here is that you will be dealing with a familiar program that 
works, without trivializing the modification. Programs 1 through 4 are loosely 
classed in the easy category, programs 5 through 8 intermediate, and 9 through 
1 1 advanced. Try any or all of these modifications now or after you have finished 
reading this book. Working solutions are in Appendix C. 
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Program 1, CLEAN SCREEN. Have the program clear the screen before print- 
ing the HIT A KEY message. 

Program 2, MESSAGES. Have the program print "HIT A KEY" when the pro- 
gram is first run but then have it print "HIT A KEY OR <R> TO END" for subse- 
quent display. 

Program 3, SINGLE. Combine the last two messages of the display onto one 
line so that the program prints: 

PHEW! . _ HIT A KEY OR <R> TO END 

10 spaces 

Have this line print on the bottom line. Increase character lines printed to 24. 

Program 4, CALLING YOU. Structure the program as a subroutine. Add a main 
program that calls the subroutine and ends the program. 

Program 5, SLOW DOWN. Slow down the display. The character display takes 
about 16 seconds to print. Lengthen this print time to about double. 

Program 6, SPEED UP. Speed up the program. The character display takes 
about 16 seconds to print. Shorten this print time. The time can be shortened, 
using PRINT, to about two seconds. 

Hint: You will need to decrease the number of PRINTs. 

Program 7, INDIAN BLANKET. Allow input and display of different characters 
while the display is being printed. Modify messages as in Program 2, but with the 
following messages: 

HIT ANY KEY 

HIT ANY KEY OR <R> TO END 

At the same time slow down the display, as in Program 5, but make it even 
slower to allow time to press different keys while viewing the display — slow to 
about 75 seconds. 

Remember when running the program that once you press a key, it automat- 
ically repeats until you press the next key. Can you get the display to look like an 
Indian blanket? 
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Program 8, PRINTOVER I. Have the program type over the existing display 
rather than blanking the screen. Do this without scrolling. 

Is the display completely satisfactory this way? If not, how would you im- 
prove it? 

Program 9, PRINTOVER II. The task is the same as Program 4, but fix its faults. 
Have the character print position show visually, even when printing over the 
same character. Blank the last two lines before printing the messages, pausing a 
few seconds after printing PHEWI; then blank the two lines again before printing 
the next display character. 

Program 10, ALL THE WAY. Have the display character print over the entire 
1000 character positions of the screen. The HIT A KEY message will appear only 
once at the beginning of the program. After that the user enters another key 
"blind." No PHEW! message. 

Hint: First do the program for 1 = 1 TO 999. Getting the 1000th character will 
take a little poking around. 

Program 11, BOTTOM UP. Have the program print in reverse order, starting 
from the lower right-hand corner and proceeding left across rows to the home 
position. This is not difficult once you have done Programs 9 and 10. Clear the 
screen before ENDing to avoid typing into a cluttered display. 
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CHAPTER 4 



PET BASIC 



This chapter describes the syntax of all PET BASIC commands, statements, 
and functions that can be included in a PET BASIC program. This chapter is in- 
tended to serve as a reference guide. It contains PET BASIC commands, state- 
ments, and functions listed alphabetically within each group. 

Descriptions given in this chapter have been made as definitive as possible. 
Frequently this results in the use of terms that you will not understand if you are a 
novice programmer; these terms are used to make the description as precise as 
possible. But do not worry if you encounter terms you do not understand; a less 
precise, general description of each statement, command, or function is also 
given. A list of BASIC primers is contained in Appendix D. 
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FORMAT CONVENTIONS 



The following conventions are used in the format presentations: 

UPPER CASE Words in upper case are constant and must be typed in 
exactly as shown. 

lower case Words in lower case are variable; the exact wording or 
value is supplied by the programmer. 

( ) Braces indicate a choice of items; braces do not appear 

in an actual statement. 

. . . Ellipses indicate that the preceding item can be re- 

peated; ellipses do not appear in actual statements. 

line number In the format presentations, a beginning line number is 
implied for all stored program statements. 

variable Unless otherwise specified, a variable may be un- 

subscripted (a simple variable) or subscripted (an array 
element). 



BASIC COMMANDS 

CLR 

The Clear command, CLR, reinitializes all of the PET's "system" pointers to 
user program variables and initializes the Stack Pointer. This is equivalent to turn- 
ing the PET off, then turning it back on, and loading a fresh copy of the program 
into memory. 
Format: 

CLR 

After CLR, all numeric variables are assumed to have values of zero and all 
string variables are assumed to have null values until the variable is given a 
different value by a program or immediate mode assignment. PET BASIC state- 
ments that can assign values to variables are LET=, GET, GET#, INPUT, INPUT#, 
and READ. 

CLR may be given in immediate or program mode. 
Example: 

CLR 



CONT 

The Continue command, CONT, resumes program execution after a BREAK. 
A break is usually caused by pressing the STOP key in immediate mode or execut- 
ing a STOP statement in program mode. 
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Format: 

CONT 

A break is an interruption in program execution that returns control to PET 
BASIC before the progrann has executed to completion. A scheduled break is 
caused by execution of a STOP statement, execution of an END statement that 
has additional statements following it, or depressing the STOP key while the pro- 
gram is running. 

During a program break you can LIST, LOAD, SAVE, VERIFY, and perform 
any immediate mode operations using PET BASIC statements — including 
changing the values of program variables — and still continue program execution 
by issuing a subsequent CONT command typed in at the keyboard. This can be 
very useful in debugging situations. On resumption of the program, execution 
continues at the exact point where it left off. A break caused by pressing the 
RETURN key in response to an INPUT statement can be recovered by typing 
CONT. In this case the same INPUT request is repeated. 

You cannot resume program execution using CONT if during the program 
break you make any editing changes to the program or issue a CLR or NEW. CONT 
cannot continue program execution past an error message. 

Example: 

CONT 




LIST 

The List Program command, LIST, displays one or more lines of a program. 
You may edit program lines displayed by the LIST command. 

Format: 

List entire program. 
List one line. 
LIST <^ Iine-|-line2 List from line-] to Iine2. 

List from start to line. 
List from line to end. 
where: 

line is a line number. Linei is a lower number than 

Iine2. All line numbers are inclusive. The line 
numbers do not need to be actual line numbers 
in the program. In the case of listing one non- 
existent line, a blank line is printed. 

LIST is the most common command you will give in PET BASIC. It lists pro- 
gram lines on the display screen for examination and possibly subsequent editing. 
After a LIST command, you can move the cursor up to any line in the program 
shown on the screen and make editing changes. 
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If the program is longer than 23 lines, a simple LIST will scroll the beginning 
of the program up off the display screen. Use line limiting parameters in this case 
to retain the desired program lines on the screen. In addition to LIST, the entire 
program is also listed in response to LIST or LISTO. 

If the PET is hooked up to a hard copy output device, such as a line printer or 
teletype, LIST can be used to obtain printed copies of the current program (see 
CMD statement). 

Examples: 

LIST List entire program. 

LIST 50 List line 50. 

LIST 60-100 List all lines in the program between lines 60 

and 100, beginning with line 60 and ending 
with line 100. 

LIST -140 List all lines in the program from the beginning 

of the program through line 140. 

LIST 20000- List all lines in the program from ine 20000 to 

the end of the program. 

The format of the listed line is virtually the same as that in which the line 
was entered. PET BASIC does just the following reformatting: 

1. ?'s entered as a shorthand for PRINT are expanded to the word PRINT. 
Example: ? A becomes PRINT A. 

2. Blanks ahead of the line number are eliminated. 
For example: 50 A = 1 becomes 50 A = 1 

100A=A-I-1 i00A=A-f-1 

3. A space is inserted between the line number and the rest of the state- 
ment if none was entered. 

For example: 55A = B-2 becomes 55 A=B-2. 

4. The line is printed beginning at column 2 instead of column 1. 

LIST is always given in immediate mode. If you put a LIST command in your 
program, it lists the program but then exits to PET BASIC. Attempting to continue 
program execution via CONT simply repeats the LIST indefinitely. 

LOAD 

The LOAD command loads a program from the tape cassette unit, or from 
another device if specified, into memory. 
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Format: 



where: 



(blank) Load the first program found from the con- 

sole tape. 

filename Load the named program from the console 

LOAD tape. 

filename.device Load the named program from the specified 
device. 

filename.device.s Load from specified device with secondary 
address code. 

filename is a string enclosed in quotes or a string 

variable representing the file name that was 
given when the program was written onto 
tape. 

device is a preassigned device number. 

s is a secondary address code (see OPEN). 



LOAD in Immediate Mode 



LOAD is most often specified in immediate mode to load a desired program 
into memory. For a LOAD in immediate mode, PET BASIC automatically performs 
a CLR function before the program is loaded. Once a program has been loaded 
into memory, it can be listed for updating or executed by issuing the RUN com- 
mand. 

Begin a tape load with all tape control keys up (off). When you give a LOAD 
command, PET issues the following dialogue (bracketed items appear only if a 
filename is specified): 

Issue LOAD command. 



LOAD ["filename"] 
PRESS PLAY ON TAPE #1 

OK 

SEARCHING [FOR filename] 
FOUND filename a 
FOUND filename b 
FOUND filename . . 
FOUND filename d 
FOUND 
LOADING 
READY. 



Shown if no tape control keys are de- 
pressed. 

Shown after you press the PLAY key. 

Tape begins moving. 
Lists the first 16 characters of all pro- 
grams found, if any, between beginning 
tape position and filename location. 
Format for named program. 
Format for unnamed program. 
A program is being loaded. 
Loading is complete. 
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After the first program has been loaded from a tape, you can for conven- 
ience leave the PLAY key depressed if you will be loading again from the tape. 
However, do not leave the PLAY key depressed if you will subsequently be saving 
a program. PET can sense that a tape control key is depressed, but it cannot dis- 
tinguish between them. A common error is to LOAD, then subsequently attempt 
to SAVE, with only the PLAY key depressed. 



Examples: 

LOAD 



LOAD "EGOR" 

N$="WHEE!LS' 
LOAD N$ 
LOAD "X" 



Load the next program found into memory. If you 
start a LOAD when the cassette is in the middle of a 
program, the PET will read past the remainder of the 
current program, then load the next program. 
Search for the program named EGOR on the tape 
cassette, and load it into memory. 
Search for the program named WHEEILS on the tape 
cassette, and load it into memory. 
Where a program named X is not on the tape, this 
command will produce a list of all the programs on 
the tape in the form: 
FOUND program 1 
FOUND program 2 
etc. 

Sometimes you may have trouble loading a program from tape into memory. 
Often the PET will find the program name but does not load the program correctly 
or does not load it at all. If this happens, the only thing you can do is to try to load 
the program again. Rewind the tape and reload (several times if necessary). If this 
does not work, there may have been a problem when saving the program (SAVE 
command) or in the cassette unit itself. 



LOAD in Program Mode 

When the LOAD command is executed in program mode, any listing of 
LOAD messages is suppressed unless the tape PLAY key is up (off). When the 
PLAY key is off, the following message is shown so that the load can proceed: 

PRESS PLAY ON TAPE #1 

OK-^ when PLAY is depressed 

LOAD in program mode can be used to build program overlays. A LOAD 
command executed from a program causes that program's execution to stop and 
another program to be loaded, overlaying the program currently in memory that 
issued the LOAD request. In this case the PET does not perform a CLR, thereby 
allowing the first program to pass on all of its variable values to the program being 
loaded. The overlay program, and all subsequent overlay programs, cannot be 
larger than the first program in the overlay series. 



116 



Example: 

410 LOAD "OVLYV 



NEW 



The NEW command clears the PET's memory of the current program. 



Format: 



NEW 



When a NEW command is executed, the PET performs a CLR for all varia- 
bles but also reinitializes all pointers that are keeping track of the program state- 
ments stored in memory. The program itself is not physically deleted. These NEW 
operations are automatically performed during a LOAD process. 

Issue a NEW command when you want to begin creating a stored program 
entered from the keyboard and there is already a program in memory. If a NEW 
were not issued, subsequent program entry lines would simply modify the exist- 
ing program. 



NEW is always issued in immediate mode. If a NEW command is issued 
from within a program, the program will "self destruct"; it will clear itself out just 
as if a NEW command had been issued from the keyboard. Of course, the program 
terminates at that point. 



The RUN command begins execution of the program currently stored in 
memory. 

Format: 



When the RUN command is executed in immediate mode, the PET performs 
a CLR of all program variables and performs a RESTORE, then begins executing 
the program. This is by far the most common use of the RUN command. 



Example: 



NEW 



RUN 




Begin execution at the lowest-numbered line. 
Begin execution at the specified line. 
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If RUN is specified with a line number following it PET still performs the CLR 
and RESTORE but begins execution at the specified line number. The RUN with 
line number command is not for use after a program break — use CONT or GOTO 
for that purpose. Rather, RUN with a line number specified is used to begin execu- 
tion of a program within a program. Usually the two programs will be completely 
separate, each program having its own range of line numbers. 




The RUN with no line number command may also be used in program mode. 
It begins execution of the program from the top with all variables cleared and 
DATA being called from the beginning again. However, you will probably find that 
using the CLR, RESTORE, and GOTO commands is preferable. 

Examples: 

RUN Initialize and begin execution of the current pro- 

gram. 

RUN 1000 Initialize and begin execution of the program 
starting at line 1000. 
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SAVE 

the SAVE command writes a copy of the current program from memory to 
the console tape unit, or other device if specified. 

Format: 

!(blanl<) Save as an unnamed file, 

filename Save with filename header, 

filename.device Save with filename header on specified 
device, 
filename.device.s Save on specified device with secondary 
address code. 

where: 

filename is a string enclosed in quotes or a string 

variable representing the file name by 
which the program is to be called. 

device is a predefined device number. 

s is a secondary address code (see OPEN). 

SAVE is most often used in immediate mode. To save the current program 
on tape, follow these steps: 

1. Insert the tape cassette into the cassette unit. The save begins im- 
mediately, so you should be sure to position the tape to the correct 
point. 

2. Depress the tape STOP key to set all keys up. 

3. Type in the SAVE command. The following dialogue takes place 
(bracketed items appear only if a file name is specified): 

SAVE [filename] 
PET responds with the message: 

PRESS PLAY & RECORD ON TAPE #1 
First press the RECORD key and then the PLAY key. PET responds with: 

OK 

WRITING [filename] 

READY.- Tape stops 

4. Depress the STOP key. 

5. Verify the saved program (see VERIFY). 

If you want to write the current program onto a tape that is not positioned 
correctly, use VERIFY commands to position the tape, since VERIFY does not alter 
the program currently stored in memory. Or, you may write the current program 
to a spare tape, position the other tape with LOADs, then reload the saved pro- 
gram from the spare tape and proceed with the SAVE procedures on the primary 
tape. 
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When the PET performs a SAVE to tape, it automatically writes a tape 
header and creates a tape file with the specified file name (or blank if no file name 
is specified). It is recommended that file names be used — you can always load a 
named program without naming it, but you cannot search for an unnamed one. 
Error checking and correction techniques are used to help ensure that subsequent 
loading will be a correct copy of what was originally written. You can help to en- 
sure reliable tapes by verifying after every SAVE command (see VERIFY com- 
mand). 

CAUTION: If any of the four tape control keys REC, REW, FFWD, or PLAY 
are depressed when the SAVE command is executed, the PET will start "writing" 
to the tape. Be sure to press the tape STOP key before issuing a SAVE command; 
this assures that the PET will print the PRESS PLAY & RECORD ON TAPE #1 
message. Do not follow the order of these instructions: remember to depress 
RECORD before you press PLAY. 

Examples: 

SAVE Write the current program onto tape, leaving it 

unnamed. 

SAVE "RED" Write the current program onto tape, assigning 

the file name of RED. 
A$="RED" Same as above. 
SAVE A$ 

A SAVE command will also work if issued from within a program. You will 
normally not have any reason to do this. For a programmed SAVE, as with a pro- 
grammed LOAD, the PET does not issue any messages on the screen unless the 
device being written to is not ready; for the console tape, the following messages 
may be displayed: 

PRESS PLAY & RECORD ON TAPE #1 
OK 



VERIFY 



VERIFY is a version of the LOAD command that checks for recording errors 
after a program is saved. Always verify a program after you save it. 

Format: 

Verify the first program found on the con- 
sole tape. 

Verify the named program on the console 
tape. 

Verify the named program from the 
specified device. 

Verify from specified device with secon- 
dary address code. 



VERIFY' 



(blank) 
filename 
filename,device 
filename, device.s 
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where: 

filename is a string enclosed in quotes or a string 

variable representing the file name that 
was given when the program was written 
onto tape. 

device is a preassigned device number, 

s is a secondary address code (see OPEN). 

Note that LOAD, SAVE, and VERIFY have the same parameters. 

VERIFY should always be used following a program SAVE to see if any er- 
rors occurred when writing to the tape. By simulating the processes of a program 
LOAD, it reads and compares the program on the tape to the program in memory 
without actually loading the program into memory. If an error is detected, the PET 
displays a screen message to warn the user. 

Follow these steps to verify a tape: 

1. SAVE the program. 

2. Rewind the tape to the beginning of tape (or to a point that you l<now 
precedes the load point of the program just saved). 

3. Press the tape STOP key. 

4. Type in the VERIFY command, giving the same parameters that were 
used in the SAVE command. The program will be verified. 

On being given a VERIFY command, the PET begins the following dialogue 
(bracketed items appear only if a filename is specified): 



VERIFY ["filename"] 
PRESS PLAY ON TAPE #1 

OK 

SEARCHING [FOR filename] 
FOUND filename a 
FOUND filename b 
FOUND filename . . 

FOUND filename d 

FOUND 

VERIFYING 
<0K I 

iREADY.) 

?VERIFY ERROR 



Issue VERIFY command. 
Shown if no tape control keys are de- 
pressed. 

Shown after you press PLAY. 
Tape begins moving. 
Lists the first 16 characters of all pro- 
grams found, if any, between beginning 
tape position and filename location. 

Format for named program (SAVE 
filename"). 

Format for unnamed program (SAVE). 
A program is being verified. 

Displayed if program verifies. 

Displayed if program does not verify. 



If the message OK is displayed, it means that you can subsequently load the 
saved copy into memory and get a duplicate of what is currently in memory. 
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If the message 7VERIFY ERROR is displayed, it means that the program may 
not have been correctly recorded onto the tape. Rewind the tape and try the 
VERIFY again. If the error persists, rewind the tape back to the beginning of the 
save point, save the program again, and verify the program. If the error still per- 
sists, try using another portion of the tape or another tape. To find the problem 
you may use the Status Word function (ST). ST tells you where the error occurred 
(see ST function). 

The VERIFY command can be used in program mode, but this is not a com- 
mon practice. 

Examples: 

VERIFY Verify the next program found on the ape. 

VERIFY "CLIP" Search for the program named CLIP on 

the tape cassette, and verify it. 
A$="CLIP" Same as above. 

VERIFY A$ 
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BASIC STATEMENTS 



CLOSE 

The CLOSE statement closes a logical file. 
Format: 

CLOSE file 
where: 

file is the logical file number that was given 

when the file was opened. 

Each file should be closed when you are through accessing it. Since the PET 
allows only ten files to be open at a time, it is good practice to close files as soon 
as they are not in use to allow other files to be opened. A logical file may be 
closed only once between file open commands. All open files must be closed 
before a program END. 




The particular operations performed in response to a CLOSE statement de- 
pend on the physical device and the type of operation for which the file was 
opened. For PET cassette tapes, closing a file after reading it will stop the PET 
from reading the file any further. Closing a file after writing to it is critical: the PET 
puts an end-of-file mark at that point, an end-of-tape mark for write code 2, and 
finishes writing the last of the buffer contents onto tape. 
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If you forget to close a file prior to the program end, you may ruin your file. 
When a file is opened for write, the data is stored in a buffer area prior to being 
transferred to the tape. If the file is not closed, the data will probably NOT be 
transferred to the tape. If the data is transferred under these conditions, other 
problems can result. If the file is written over a previously recorded tape, and the 
file is not closed, no end-of-file marker is written. This problem will not present it- 
self until the file is subsequently read, when either a READ ERROR will be gener- 
ated or the tape will be read past where the end-of-file should be, and the remain- 
ing "garbage" on the tape will be read. 

CLOSE may be executed in either immediate or program mode. After writing 
to a file, if no tape control key is depressed when a CLOSE is issued, the PET dis- 
plays the following message: 

PRESS PLAY & RECORD ON TAPE #1-' Press keys 

0K-" Tape begins moving to write tape buffer. 

No tape control keys need to be down for a CLOSE after a READ command. 

Examples: 

CLOSE 1 Close logical file 1. 

CLOSE 14 Close logical file 14. 
A = 14 Same as above. 

CLOSE A 

CMD 

The CMD statement directs the PET-user screen dialogue to another output 
device. 

Format: 

CMD file 
where: 

file is the logical file number that was given 

when the file was opened. 

After a CMD statement, output for subsequent PRINT and LIST commands 
is directed to the "commanded" device rather than to the screen. 
CMD may be executed in immediate or program mode. 
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Example: 

The following example sequence uses CMD to obtain program listings and 
printouts on paper. 

OPEN 5,5 Device 5 is a hard-copy printer. 

CMD 5 Direct subsequent display log to the logical file 

5 device. 

LIST Prints the program listing on paper. 

LIST Prints another copy of the program listing on 

paper. 

PRINT A Prints the value of variable A on paper. 

PRINT#5 Return to display screen log (prints a blank line 

at the printer and "unlistens" the printer 

device). 



DATA 

The DATA statement declares constants that are to be assigned by the 
READ statement. 

Format: 

DATA 1^°'^^^^'^^ One DATA item 

(constantconstant,. . .constant Multiple DATA items 

where: 

constant is a simple numeric or string constant. Varia- 

bles, expressions and functions are illegal. 

DATA statements may be placed anywhere in the program. See the READ 
statement for a description of DATA statement processing. 

Constants in the DATA statement list may be numeric or string. Numeric 
constants must agree in format with the variables to which they will be assigned. 
String constants are usually enclosed in double quotation marks. The quotes are 
not necessary unless the string contains graphic characters or any of the follow- 
ing special symbols: blanks (spaces), commas, and colons. Blanks and graphic 
characters are ignored in a string unless they are enclosed in quotes. Any con- 
stant may be read into a string variable. Numeric data read into a string variable 
can be converted to its numeric equivalent by the VAL function. A double quota- 
tion mark cannot be represented in a DATA string: an Assignment statement 
must be used in the following manner: 

D$=CHR$(34):?D$ 

^ CHR$(34) is the double quotation mark. 

The DATA statement is valid in program mode only. 
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Examples: 

10 DATA NAME/'C.D." Defines two string variables. 

50 DATA 1E6,-10,XYZ Defines two numeric variables and 

one string variable. 

DIM 

The Dimension statement (DIM) allocates space for arrays. 
Format: 

r^,.. (var(i) Dimension one array. 

DIM < ,., , . , 

( var(i),var(i),. . .var(i) Dimension multiple arrays. 

where: 

var is a numeric or string variable name. 

i is a constant, variable or expression represent- 

ing the subscript or subscripts of the array, in 
the form: 

var(i) Single-dimension array 

var(i,j> Two-dimension array 

var(i,j,k,. . .) Multiple-dimension array 

Refer to "Arrays" in Chapter 3 for a complete description of array formats. 

Arrays with more than eleven elements must be dimensioned in a DIM 
statement. The DIM statement must be encountered once, and only once, in pro- 
gram execution before any statement calls an element of the array. Arrays of 
eleven elements or less (subscripts through 1 for a one-dimensional array) may 
be used without being dimensioned by a DIM statement; for such arrays, eleven 
array spaces are allocated when the first array element is encountered. 

If the array is dimensioned more than once, or if an array having more than 
eleven elements is not dimensioned, a ?REDIM'ED ARRAY error occurs and the 
program is aborted. A CLR statement allows a Dimension statement to be reex- 
ecuted; this is not normally done, however. 

DIM may be given in either immediate or program mode. 

Examples: 

lODIMAO) DIM statement usage 

45 DIM X$(44,2) in program mode. 

1000 DIM MU(N,3.B), N(12) 
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END 



The END statement terminates program execution and returns control to 
PET BASIC. 

Format: 

END 

The END statement may be used in a program to provide a program termina- 
tion point, or multiple program termination points, at locations other than the 
physical end of the program. END statements can be used to terminate each pro- 
gram when there is more than one program in memory at the same time. An END 
statement at the physical end of the program is optional. A Continue command 
(CONT) given after program termination by END v\^ill continue program execution 
at the statement following the END statement. 

END is functional only in program mode. 

Example: 



FOR . . . NEXT [STEP] 

The FOR statement sets up a loop where all intervening statements between 
the FOR statement and the NEXT statement are executed a specified number of 
times. 

Format: 

FOR index = start TO end [STEP increment] 
[^statements in loopj 
NEXT [index] 
where: 



20001 END 



index 



is a floating point, single variable used to hold 
the current loop count. The index variable is 
often used by the statements in the loop. 



end 



start 



increment 



is a numeric constant, variable or expression 
that specifies the beginning value of the index, 
is a numeric constant, variable, or expression 
that specifies the ending value of the index. The 
loop is completed when the index value is equal 
to the end value, or when the index value is in- 
cremented or decremented past the end value, 
if present, is a numeric constant, variable, or ex- 
pression that specifies the amount by which the 
index variable is to be incremented with each 
pass. The step may be incremental (positive) or 
decremental (negative). If the STEP phrase is 
omitted, the increment defaults to -F1. 
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FOR . . . NEXT loops may be nested. Each nested loop must have a different 
index variable name. A nested loop must be wholly contained within the next 
outer loop; at most, the loops can end at the same point. 

The index variable may optionally be included in the NEXT statement. This 
may be advisable to improve the readability of the program when there are nested 
FOR . . . NEXT loops. A single NEXT statement is permissible for nested loops that 
end at the same point. The NEXT statement would then take the following form: 

NEXT indexi,index2,. • . 

A FOR . . . NEXT loop may contain subroutine calls, but the loop cannot ter- 
minate inside a called subroutine. Both FOR . . . NEXT loops and subroutine calls 
use the Stack (see Chapter 6). 

The FOR . . . NEXT loop will always be executed at least once, even when the 
beginning index value is beyond the end index value range. If the NEXT statement 
is omitted and no subsequent NEXT statements are found, the loop is executed 
once. 

The start, end, and increment values are read only once, at the first execu- 
tion of the FOR statement. You cannot change these values inside the loop. You 
can change the value of the index variable within the loop. This may be used to 
terminate a FOR . . . NEXT loop before the end value is reached: set the index to 
the end value, and on the next pass the loop will terminate itself. Do not jump out 
of the FOR . . . NEXT loop with a GOTO. 

Examples: 

10 FOR IN = TO 100 



40 NEXT IN 

100 FOR X = A-l-14 TO C-64-I-D/2 STEP 4 



150 NEXT X 

60 FOR A1 = 50 TO STEP -1 



90 NEXT 
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100 FOR I = TO 10 STEP 0.5 



155 NEXT 

250 FOR I = 1 TO 5 
260 FOR J = A TO B 



300 NEXT l,J same as NEXT ! gg^e as 300 NEXT 
310 NEXT J 310 NEXT 

GET 

The GET statement inputs one character from the keyboard into a program. 
Format: 

GET var$ 
where: 

var$ is a string variable into which the input 

character is to be stored. 

When a GET statement is executed, it sets the specified string variable to 
null. Any previous value of the variable is lost. Then it fetches the next character 
from the keyboard buffer and assigns it to the specified string variable. If the 
keyboard buffer is empty, the variable remains null. 

GET can be used to handle one-character responses from the keyboard. It 
has an advantage over INPUT in that the PET does not intercede when the 
RETURN key is struck; the RETURN key is passed to the program as a value (CHR$ 
(13)) just like any other key. Because of fast program execution, you will need to 
program a particular sequence so that the GET command will wait until a key has 
been pressed at the keyboard. The common program sequence incorporates a 
check for a null character; if the null character is found, return to the GET state- 
ment, and then check the variable value again; if any character is found, proceed 
with the main program. This sequence is shown in the example below. 

The GET statement is valid only in program mode. 

Example: 

10 GET C$:IF C$ = GOTO 10 
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Format Variations 



GET has other formats, but they are defective and it is not recommended 
that they be used. These variations are described below. 
GET may be used to fetch a numeric variable: 

GET var 

where: 

var is a numeric variable. 

If no key has been pressed a zero is returned. However, a zero is also 
returned if a zero was pressed at the keyboard. If the character returned is not a 
digit (0-9) a SYNTAX ERROR message is generated and the program aborts. 

The GET statement may have a variable list of the form: 
GET var,var var 

where: 

var is a string or numeric variable. 



GET# 

The Get External statement (GET#) inputs one character from an external 
peripheral device to the PET. 

Format: 

GET#file,var 
where: 

^ile is the logical file number that was given when 

the file was opened, 
var is a string or numeric variable into which the 

character is to be input. 

GET# functions like the GET command except that the character is fetched 
from an external device. 

GET# is valid only in program mode and only when referencing a logical file 
that has been opened for input. For input from the tape cassette, PET prints the 
following message if no tape control keys are pressed when the GET# statement 
is executed. Otherwise, no messages are printed. 

PRESS PLAY ON TAPE #1 

OK when a tape control key is depressed 

Example: 

10 GET#4,C$:IF C$ = GOTO 10 
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GOSUB 



The GOSUB statement branches program control to specified line and 
allows a return to the next statement following the GOSUB call. 

Format: 

GOSUB line 
where: 

line is a numeric constant specifying the first line of 

the subroutine. 

No special entry to a subroutine is needed. The program branches control to 
the subroutine after making an entry on the Stack (see Chapter 6). The subroutine 
must terminate with a RETURN statement to return program control to the state- 
ment following the GOSUB statement that activated the subroutine. The RETURN 
removes the Stack entry. A subroutine may be called from many places in a pro- 
gram. As many as 26 subroutines may be nested (25 GOSUBs before the first 
RETURN). 

Example: 

10 GOSUB 100 



GOTO 

The GOTO statement branches unconditionally to the specified line. 
Format: 

GOTO) ,. 
^^^^ / ine 
GOTO f 

where: 

line is a numeric constant specifying the line to be 

branched to. 

Example: 

10 GOTO 100 

GOTO executed in immediate mode branches to the specified line in the 
stored program without clearing the current variable values. GOTO cannot 
reference immediate mode statements, since they do not have line numbers. 

IF . . . THEN 

The IF . . . THEN statement provides conditional execution of statements 
based on a relational expression. 
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Format: 



statement 



Conditionally execute statennent. 



IF condition THEN 



statement:statement... Conditionally execute statements. 



IF condition 




line 



Conditionally branch. 



where; 



condition 



is a relational term (with "< >0" implied) or a rela- 
tional expression. 



statement 



is any PET BASIC statement valid for the current 
mode (program or immediate) that may be condi- 
tionally executed. 



line 



is a numeric constant specifying the line to be 
branched to. 



If the specified condition is true, then the statement or statements following 
the THEN are executed. If the specified condition is false, control passes to the 
next sequential statement on the next line number without executing the state- 
ment or statements following the THEN. A conditional branch may be written in 
the form of a line number to be branched to placed after the word THEN or after 
the word GOTO. The compound form THEN GOTO is also acceptable. 



If an unconditional branch is in a multiple-statement IF . . . THEN, the branch 
must be the last statement on the line and must be in the traditional "GOTO line" 
form. If it is not the last statement on the line, the statements following the un- 
conditional branch are never executed. The form "THEN line" is an alternative to 
"GOTO line" and cannot be used with multiple statements Intervening between 
the "THEN" and the "line." 

IF . . . THEN may be given in immediate or program mode. 

In an immediate mode IF . . . THEN, the following statements are illegal or 
non-functional: DATA, GET, GET#, INPUT, INPUT#, REM, RETURN, END, STOP, 
WAIT. If a line number is specified, or any statement containing a line number, 
there must be a corresponding statement with that line number in the current 
stored program if the branch may be taken. 



IF A = 1 THEN 50 
IF A = 1 GOTO 50 
IF A = 1 THEN GOTO 50 



equivalent 
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In a program mode IF . . . THEN, the following command and statement are 
illegal: CONT. DATA. If a FOR . . . NEXT loop will be following the THEN, the loop 
must be completely contained on the IF . . . THEN line. Additional IF . . . THEN 
statements may appear following the THEN as long as they are completely con- 
tained on the original IF . . . THEN line. However, Boolean connectors are preferred 
to nested IF . . . THENs. For example, the two statements below are equivalent, 
but the second is preferred. 

10 IF A$ = "X" THEN IF B = 2 THEN IF C>D THEN 50 

10 IF A$ = ■■X" AND B = 2 AND OD THEN 50 
Examples: 

400 IF X>Y THEN A = 1 

500 IF M+l THEN AG =4.5:GOSUB 1000 



INPUT 

The INPUT statement inputs data items from the keyboard to a program. 
Format: 

^^p^jj /(blank)) (var Input data item 

\"msg":/ (varvar var Input data items 

where: 

var is a string or numeric variable into which the 

data item is to be input. 

msg refers to a prompt message which, if present, is 

a string enclosed in quotes and followed by a 
semicolon. 

When the INPUT statement is executed, PET BASIC prints a question mark 
on the screen requesting input of data to the variable or variables listed in the IN- 
PUT statement. The user enters the data and terminates his or her response with a 
RETURN. Where there is more than one variable in the INPUT statement, data en- 
try is separated by commas. 

?data or ?data,data data 

If msg is present, the string is printed before the question mark. 
msg?data or msg?data,data data 
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The input data items must agree in number and type with the variables in 
the INPUT list. If the variable types are different, a ?REDO FROM START message 
is printed and the PET waits for another input. Any response is acceptable for 
string input; for a numeric variable, however, the input must be in proper numeric 
form. If at least one but still too few data items are input, PET BASIC requests ad- 
ditional input with double question marks (??) until the variable list is satisfied. If 
too many data items are input, the message 7EXTRA IGNORED is printed but the 
program continues. Data is input from the first position past the question mark to 
the position where the RETURN is given. Normally only a single string item is re- 
quested to be typed in from the keyboard by each INPUT statement. However, 
multiple items can be input and items may be input from an existing screen dis- 
play. 

CAUTION: If a null list (RETURN only) is input in response to an INPUT 
statement, the program aborts and returns control to PET BASIC. The program 
can be continued, however, by typing CONT in response to the PET's READY 
message. 

INPUT can be given only in program mode. 
Examples: 

100 INPUT A$ 
200 INPUT A,B$ 

220 INPUT "ENTER X COORDINATE";X 
3060 INPUT "NAME";N$ 



INPUT#file 



J var 

\ var,' 



INPUT# 

The Input External statement (INPUT#> inputs one or more data items from 
an external peripheral device to the PET. 

Format: 

ar Input data item 

■,var var Input data items 

where: 

file is the logical file number that was given when 

the file was opened, 
var is a numeric or string variable into which the 

data item is to be input. 

Data strings may not be longer than 80 characters (79 characters plus a car- 
riage return) because the input buffer can hold only 80 characters at a time. Item 
separators such as commas and carriage returns are recognized by the PET when 
processing the INPUT# statement but are discarded and are not passed on to the 
program as data. 
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INPUT# is valid only in program mode and only when referencing a logical 
file that has been opened for input. For input from the tape cassette, the PET 
prints the following message if no tape control keys are pressed when INPUT# is 
executed. Otherwise, no messages are printed. 

PRESS PLAY ON TAPE #1 

0K-" when a tape control key is depressed 

Examples: 

1000 INPUT#10,A Input the next data item, which must be in 

numeric form, and assign the value to variable 
A. 

946 INPUT#12,A$ Input the next data item as a string and assign it 

to variable A$. 

900 INPUT#5,B,C$ Input the next two data items and assign the 

first to numeric variable B and the second to 
string variable C$. 

LET ... = 

The Assignment statement, LET . . . =, or simply =, assigns a value to a 
specified variable. 

Format: 

/(blank)) 

{let I 

where: 

var is a numeric or string variable. 

data is a constant, variable, or expression represent- 

ing the value to be assigned to var. Data must 
agree in type with var. 

The word LET is optional and is usually omitted in PET BASIC programs. The 
assignment statement may be used in program or immediate mode. 

Examples: 

10 A=2 

450 C$="'^ " 

300 M(1,3)=SGN(X) 

310 XX$(l,J,K,L)="STRINGALONG" 
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ON . . . GOSUB 



The ON . . . GOSUB statement provides conditional subroutine calls to one 
of several subroutines in a progrann, depending on the current value of the 
specified index. 

Format: 

ON index GOSUB Iine-|,line2 line^, 

where: 

index is a constant variable, or expression that must 

be in the range 0<index<255. 

line, is one or more line numbers specifying the 

beginning lines of subroutines. 

ON . . . GOSUB has the same format as ON . . . GOTO, and the statement is 
evaluated in the same way (see ON . . . GOTO). 

For index=1, the subroutine beginning at line-] is called. When that 
subroutine is completed (a RETURN statement), the program continues with the 
statement following the ON . . . GOSUB. If index=2, the subroutine beginning 
with Iine2 is called, etc. The ON . . . GOSUB statement should be used only to call 
subroutines that return control via RETURN statements to the statement following 
the ON . . . GOSUB. 

ON . . . GOSUB is normally executed in program mode. It may be executed in 
immediate mode as long as there are corresponding line numbers in the current 
stored program that may be branched to. 

Example: 

10 ON A GOSUB 100,200,300 
ON . . . GOTO 

The ON . . . GOTO statement provides conditional branching to one of 
several points in a program, depending on the current value of the specified index. 

Format: 

ON index GOTO Iine-|,line2 ''"^n 

where: 

index is a constant, variable, or expression that must 

be in the range 0<index<255. 
line; is one or more line numbers. 
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The specified index is evaluated and, if necessary, truncated to an integer 
number. If index=1, a branch is taken to the statennent with line number line-). If 
index=2, a branch is taken to the statement with line number Iine2. If index=3, a 
branch is taken to the statement with line number lines- index=0, no branch is 
taken. If index is in the allowed range but there is no corresponding line number in 
that position of the line number list, no branch is taken. If a branch is not taken, 
program control proceeds to the next statement following the ON . . . GOTO. The 
next statement may be on the same line as the ON . . . GOTO (separated by a co- 
lon). 

If index has any value other than zero outside the allowed range, the pro- 
gram aborts with an error message. As many line numbers may be specified as 
will fit on the 80-character line. 

ON . . . GOTO is normally executed in program mode. It may be executed in 
immediate mode as long as there are corresponding line numbers in the current 
stored program that may be branched to. 



OPEN 

The OPEN statement opens a logical file and readies the assigned physical 



Example: 



40 A=B<10 

50 ON A-l-2 GOTO 100,200 



Branch to statement 100 if A is true 
(-1) or branch to statement 200 if A 
is false (0). 

Branch to statement 500 
if X=1, to statement 600 
if X=2, or to statement 700 
if X=3. No branch is taken if 
X > 3 



50 X=X-I-1 

60 ON X GOTO 500,600,700 
70 



device. 



Format: 



OPEN 



\ 



file 



file,device,s 



file,device 



file,device,s,filename 



Open code of device and 
assign file. 



Open code of device 1 
and assign file. 



Open code s of device and 
assign file. 



Open filename, code s, of 
device and assign file. 
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where: 



file 



is the logical file number and nriay be any num- 
ber, variable or expression in the range 1 
through 255. The logical file number must be 
present in an OPEN statement. 



device 



is the physical device number and may be any 
number, variable or expression in the range 
through 30. If omitted, the device number 
defaults to 1, the console tape unit. 



s 



is the secondary address code. This parameter 
may be any number, variable, or expression in 
the range through 31 that is valid for the 
specified device. If omitted, the secondary ad- 
dress code defaults to 0. 



filename 



is a string enclosed in quotes or a string variable 
representing a file name. 



On the PET, a logical file number is the way of referring to a particular opera- 
tion on a particular portion of a particular I/O unit The particular operation is 
specified by the secondary address code; subsequent I/O statements for the file 
must conform to the secondary address code specification. For example, you can- 
not open a file for read and then try to write to it. The particular I/O unit is 
specified by the device number. The particular portion of the device is specified 
by the filename. The relationships between logical file number, physical device 
number, secondary address code, and file name are illustrated in Figure 4-1. 

Logical File Number 

The PET performs programmed input/output (I/O) operations via logical file 
designations. A logical file must be opened for each type of I/O operation to be 
performed on each device accessed. The OPEN statement specifies the particular 
type of operation to be performed via the logical file. Subsequent I/O operations 
all refer to the logic file number set up by the OPEN statement; 



PRINT#\ p 
INPUT# / I 



Logical file number established by OPEN statement 



GET# ) 
CMD \ 
CLOSE ) 



file . 



[ 



Other parameters (if any) 



J 38 



The programmer makes up the logical file number, just as he does program 
variable names; the logical file number may be any number from 1 to 255. Once 
opened, the logical file can be used only for the type of operation specified by the 
OPEN statement until the logical file is closed; then it becomes free to use again 
in a different operation. A logical file may be opened only once before it is closed: 
if a file is opened twice before it is closed, a ?FILE OPEN error results. No more 
than ten logical files may be opened at the same time. 



Ifilename a 



device a 



Ifilename b 



Ifilename c 



device b 




filename a 



filename b 



Ifilename c 



secondary address code a 
secondary address code b 



secondary address code a 
secondary address code b 




secondary address code a 
secondary address code b 




secondary address code a 
secondary address code b 



-Up to 10 logical files 
can be open at one 
time. 



-OPEN logical file number a 

-OPEN logical file number b 

-OPEN logical file number c 

-OPEN logical file number d 



-OPEN logical file number e 

-OPEN logical file number f 

-OPEN logical file number g 

-OPEN logical file number h 



-OPEN logical file number i 

-OPEN logical file number j 

-OPEN logical file number k 

-OPEN logical file number I 



-OPEN logical file number m 

-OPEN logical file number n 

-OPEN logical file number o 

-OPEN logical file number p 



secondary address code a 
secondary address code b 



♦-OPEN logical file number q 

—OPEN logical file number r 

-OPEN logical file number s 

—OPEN logical file number t 



secondary address code a 
secondary address code b 



-OPEN logical file number u 

-OPEN logical file number v 

-OPEN logical file number w 

-OPEN logical file number x 



Figure 4-1. Logical Files 
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Physical Device Number 

The physical device number is a predefined nunnber that refers to a particu- 
lar peripheral unit capable of input and/or output with the PET. The device num- 
ber must be within the range to 255, although currently only numbers to 30 
will assign a device. Device numbers are listed in Table 4-1. 



Table 4-1. 


Physical Device Numbers 


Device Number 


Device 





Keyboard 


1 (default) 


#1 - Console tape cassette unit 


2 


#2 - Second tape cassette unit 


3 


Video display screen 


4 through 30 


IEEE port devices 


31 through 255 


Currently unassignable 



Secondary Address Code 

The secondary address code specifies the type of operation to be performed 
on the selected device. The meanings of the codes for a particular device are pre- 
determined. For the PET tape cassettes, the secondary address code is used by 
the PET software primarily to read or write tape headers. For IEEE 488-interfaced 
devices, the secondary address code is passed on directly to the device, allowing 
the program to select a variety of operational modes. Secondary address codes 
are not used for keyboard input or output to the display screen. Secondary ad- 
dress codes for PET devices are listed in Table 4-2. For IEEE devices, refer to the 
device manual for secondary address codes recognized by the device. 
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Table 4-2. Secondary Address Codes 





Secondary 
Address Code 


Onarfition 


PET Tape 
Cassette 
Units 


(default) 
1 

2 


Open for read 
Open for write 

Open for write and end-of- 

tape marl< 
(EOT) when file is closed 


PET Line 
Printer 


(default) 
1 

2 

3 
4 

o 


Normal print 

Print under Format statement 
control 

Transfer data from PET to 

Format statement 
Set variable lines per page 
Use expanded diagnostic 

messages 
Byte data for programmable 

character 


PET IEEE 
488 

Devices 


(default) 
1 through 31 


No secondary address code 
sent 

Refer to device manual 



File Names 

The filename parameter in the OPEN statement specifies a program or data 
file by name. If the OPEN is for a write, this is the name that will be assigned to the 
file being created. If the OPEN is for a read, this is the name that was written when 
the program was created. 

For cassette I/O, the filename parameter is optional. If omitted, the PET 
defaults the file name to a null string ""; the null string will match the first file 
name encountered on the tape. For other devices the file name may or may not be 
optional, depending on the requirements of the device. Note that the logical file 
number is separate and distinct from the file name. The logical file number (first 
parameter in the OPEN statement) is for internal PET use; the file name, for tape 
cassettes, is the name written in the tape header to identify a program or data file 
stored on tape. 

OPEN may be executed in immediate or program mode. 
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OPEN for Read 

When the OPEN statement is executed to open a tape cassette unit for a 
read, the PET will display the following message if no tape control keys are 
pressed: 

PRESS PLAY ON TAPE #1 

OK -< when a tape control key is depressed: tape begins moving. 

It then reads the tape header. In immediate mode the messages continue as 
follows (bracketed items are shown if a filename was specified): 

SEARCHING [FOR filename] 



FOUND filename a 
FOUND filename b 
FOUND filename c 
FOUND filename d 

FOUND 

FOUND [filename]' 
READY. File is opened for read 



Lists the first 16 characters of all files 
found, if any, between beginning tape 
position and filename location. 
Format for named file. 
Format for unnamed file. 



In program mode the above block of messages is not displayed. 



OPEN for Write 



When the OPEN statement is executed to open a tape cassette unit for a 
write, PET will display the following message if no tape control keys are pressed: 

PRESS PLAY & RECORD ON TAPE #1 

OK when a tape control key is depressed; tape begins moving. 

It then writes the tape header and tape movement stops. 
Examples: 



OPEN 1 

OPEN 1,1 
OPEN 1,1,0 
OPEN 1,1,0,"DAT" 

OPEN 3,1,2 

OPEN 3,1,2,"PENTAGRAM' 



Open logical file 1 for cassette #1 
(default), code read (default) from the first 
file encountered on the tape (no filename 
specified). 
Same as above. 
Same as above. 

Same as above but from the file named 
DAT. 

Open logical file 3 for cassette #1, code 

write and EOT to the next space on the 

tape. The new file is unnamed. 

Same as above but give the file name 

PENTAGRAM. 
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OPEN 54,8,10 



Open logical file 54 for IEEE device 8 and 
send secondary address code 10. 



POKE 

The POKE statement provides the ability to store a specified byte value into 
a specified location in PET mennory. 

Format: 

POKE address,data 
where: 

address is a numeric constant, variable, or expression in 

the range 0<address<65535 representing an 
address in PET's read/write (RAM) memory. 

data is a numeric constant, variable, or expression in 

the range 0<data<255 representing a byte 
value to be stored. 

Only RAM and display memory locations are affected by a POKE. 

Examples: 

10 POKE 1,A 

POKE 32768,ASC("A")-64 



PRINT 

The PRINT statement prints data items on the display screen. 
Format: 

'PRINT^^data Print data item. 

ndata,data data Print data items tabbed. 

? )(c 



where: 



vdata;data;. . .;data Print data items continuous. 



? (question mark) is an abbreviation accepted by 

PET BASIC for the word PRINT. 

data is a constant, variable, or expression represent- 

ing a data item to be printed. If the data item is 
a string, it is enclosed in double quotation 
marks. 



Data Conversions 

When printing a number, PET BASIC prints it in standard representation if it 
is in the range 0.01 <n:^ 999999999 and in scientific notation if it is outside that 
range. 



143 



Strings 

Strings may be printed by assigning the string to a string variable or enclos- 
ing the string within quotation marks. For example, 

A$="HELLO MARY" 

PRINT A$ Prints HELLO MARY 

PRINT "HELLO MARY" Prints HELLO MARY 

Further, if you print a string within quotation marks, you may leave off the final set 
of quotation marks if the PRINT statement is the last statement on a line. For ex- 
ample, 

PRINT "HELLO MARY Prints HELLO MARY 
PRINT Formats 

First data item. The first data item to be printed in a program is printed at the cur- 
rent cursor position. The PRINT format character (comma or semicolon) follow- 
ing the first data item specifies the format in which the next data item is to be 
printed. The next data item may be in the same PRINT statement or in a sepa- 
rate PRINT statement. 

New Line. When no PRINT format character (comma or semicolon) follows a data 
item, a RETURN is forced following printing of the data item. 

Tabbed. A comma following a data item causes the next data item to be printed 
at the next tab column. Tabs are at locations 1, 21, 31, and 41 of a line. (A com- 
ma may precede the first item to tab before printing.) 

Continuous. A semicolon following a data item causes the next item to be printed 
at the next available location on the line. For numeric data, this is the second 
position to the right of the previous data item to allow room for a "skip" 
character between numbers. For string data, items are printed continuously 
with no spaces or skips in between. The semicolon is optional to specify con- 
tinuous line printing of character data. 

PRINT may be executed in immediate or program mode. 

Examples: 

10 PRINT A 
20 ?A,B,C$ 
?"MOOPOO";MM$ 
PRINT C1$;C2$; 
PRINT A-FB 
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PRINT# 

The Print External statement (PRINT#) outputs one or more data items from 
the PET to an external peripheral device. 

Format: 

(file.data Output data item. 

PRINT# , ^ . 

lfile,data:c:data;c;. . . data Output data items. 

where: 

file is the logical file number that was given when 

the file was opened. 

data is a constant, variable, or expression represent- 

ing a data item to be output. The type of varia- 
ble — string or numeric — determines the for- 
mat in which the data is written. 

c is an item separator to be output between 

multiple data items. This may be a stng or string 
variable. Item separators recognized by INPUT# 
statements are: 
Comma: "," or CHR$(44> 
RETURN: CHR$(141) 

When outputting a single data item, the data item is output and then a 
RETURN code is output. On subsequent reading of the file, the INPUT# statement 
recognizes separate data items by a <RETURN> between them: 

data <RETURN> data <RETURN> data <RETURN> . . .data <RETURN> 

When outputting multiple data items in one PRINT# statement, the items 
must be separated by a valid item separator for subsequent INPUT# reads. Stan- 
dard punctuation marks, like commas between items, are recognized by PET 
BASIC but are not transmitted to the output file. The writing of the item separa- 
tors must be forced by including them as strings: 

PRINT#file,data;",":data;",";data. . . 
or (equivalent): 

PRINT#file,data:CHR$(44>;data;CHR$(44);data. . . 
This results in a file that is stored as: 

data, data, data. . ..data <RETURN> . . . EOF 

For output to cassette tape, the data item or items in a PRINT# statement 
are accumulated in a 1 92-character buffer. When the buffer is filled, its contents 
are output to the external device. Note that for INPUT#, no more than 80 charac- 
ters can be read between each RETURN. 

PRINT# may be executed in immediate or program mode but is valid only 
when referencing a logical file that has been opened for output. 

CAUTION: The form ?# cannot be used as an abbreviation for PRINT#. 
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Examples: 

100 PRINT#1.A 

200 PRINT#4.A$ 
300 PRINT#10,B%;", 



10 OPEN 1,1,2 
20 PRINT#1,"Hr 
55 OPEN 3,3 
60 PRINT#3,"HI" 



";C$ 



Output numeric variable A and a 
RETURN code to logical file 1. 
Output string variable A$ and a 
RETURN code to logical file 4. 
Output numeric variable B%, a 
comma, string variable C$, and a 
RETURN code to logical file 10. 
Open cassette #1 for write. 
Output HI to tape. 
Open display screen. 
Same as ?"HI" 



READ 

The READ statement assigns values from a corresponding DATA statement 
to variables named in the READ list. 

Format: 

ivar Read one data item, 

vanvar var Read multiple data items. 

where: 

var is a numeric or string variable. 

READ is used to assign values to variables. READ can take the place of 
multiple assignment statements (see LET. . .=). 

READ statements with variable lists require corresponding DATA state- 
ments with lists of constant values. READ does the actual assigning of data items 
to the list of variables. On executing the first READ statement in the program, the 
first DATA constant is assigned to the first READ variable. If the READ statement 
has more than one variable listed, then the second DATA constant is assigned to 
the second READ variable. The assignments continue until all of the READ varia- 
bles in the READ statement have been assigned values from successive DATA 
constants. A pointer is maintained to the next available DATA constant The next 
READ always assigns the next DATA constant. The number of READ and DATA 
statements can differ, but there has to be an available DATA constant whenever a 
READ statement is encountered. The data constants and corresponding variables 
have to agree in type. A string variable can accept any specified constant; a 
numeric variable can accept only numeric data. 

There may be more data than READ statements assigned; however, if the 
end of the DATA statements is reached before the end of the READ variables, the 
program aborts with an ?OUT OF DATA error message. 
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READ is generally executed in program mode. It can be executed in immedi- 
ate mode as long as there are corresponding DATA constants in the current 
stored program to read from. 

Examples: 

10 DATA 1,2,3 On completion, 

20 READ A,B,C 



150 READ C$,D,F$ 

160 DATA STg 

170 DATA 14.5,"TM" 



On completion, 



A=1 
B=2 
C=3 

C$="STR" 

D=14.5 

F$="TM" 



REM 

The Remark statement (REM) allows comments to be placed in the program 
for program documentation purposes. 

Format: 

REM comment 
where: 

comment is any sequence of characters. 

PET BASIC ignores Remark statements other than reproducing them in pro- 
gram listings. Remark statements may be placed in the path of program execu- 
tion, and they may be branched to. A Remark statement is terminated only by a 
RETURN (end of line). A Remark statement may be placed on a line of its own: 

100 REM comment 

or it may be placed as the last statement on a multiple-statement line: 

100 A=6-I-B:IF A>10 THEN 20:REM comment 

A Remark cannot be placed ahead of any other statements on a multiple- 
statement line, since anything after a REM to the end of the line is treated as a 
comment. 

10 REM BRANCH IF DONE:GOTO 200 

1^— ' 

treated as part of remark ' not executed 

REM is intended for program mode usage to document a stored program. It 
may be given in immediate mode. 

Examples: 

10 REM ********* »•#»*•«*»««»** 
20 REM ...PROGRAM EXCALIBUR... 
30 GOTO 55:REM BRANCH IF OUT OF DATA 
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RESTORE 

The RESTORE statement resets the DATA statement pointer to the begin- 
ning of data. 

Format: 

RESTORE 

RESTORE may be given in immediate or program mode. 
Example: 

10 DATA 1,2,N44 

20 READ A,B,B$ A=1.B=2,B$="N44" 
30 RESTORE 

40 READ X,Y.Y$ x=1,Y=2,Y$="N44" 

RETURN 

The RETURN statement branches program control to the statement in the 
program following the most recent GOSUB call. 

Format: 

RETURN 

Each subroutine must terminate with a RETURN statement. 
Example: 

100 RETURN 

Note that the RETURN statement, for returning program control from a 
subroutine, and the RETURN key, for moving the cursor to the beginning of the 
next display line, are entirely different operations. You should have no trouble dis- 
tinguishing these two functions. 

STOP 

The STOP statement causes the program to stop execution and return con- 
trol to PET BASIC with a break message printed. 

Format: 

STOP 

On encountering a STOP statement, execution control is returned to PET 
BASIC. The following message is printed: 

BREAK IN line 

The line number in the statement above indicates where the STOP statement was 
executed. Typing in CONT from the keyboard continues program execution at the 
statement following the STOP statement. 
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Example: 

655 STOP 



will cause the message 
BREAK IN 655 to be printed. 



WAIT 

The WAIT statement halts program execution until a memory location 
becomes non-zero. 

Format: 

WAIT /address, mask 

( address, mask, xor 

where: 

address is a memory address, 

mask is a one-byte mask value, 

xor is a one-byte mask value. 

The WAIT statement does the following: 

1. Fetches the contents of the addressed memory location. 

2. Exclusive-ORs the value obtained in step 1 with xor, if present. If xor is 
not specified, it defaults to 0. When xor is 0, this step has no effect. 

3. ANDs the value obtained in step 2 with the specified mask value. 

4. If the result is 0, WAIT returns to step 1, remaining in a loop that halts 
program execution at the WAIT. 

5. If the result is not 0, WAIT processing is completed and program execu- 
tion continues with the next statement following the WAIT statement. 

The keyboard STOP key cannot interrupt execution of a WAIT statement. 
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BASIC ARITHMETIC FUNCTIONS 



ABS 

ABS returns the absolute value, or magnitude, of a number. This is the value 
of the number without regard to sign. 

Format: 

ABS(arg) 
where: 

arg is a numeric constant, variable or 

expression. 

Examples: 

A=ABS(10) Results in A=10. 

A=ABS(-10) Results in A = 10. 

PRINT ABS(X),ABS(Y),ABS(Z) 



ATN 

ATN returns the arctangent of the argument. 
Format: 

ATN (arg) 
where: 

arg is a numeric constant, variable or 

expression. 

ATN returns the value in radians in the range ±17. 
Examples: 

A=ATN(AG) 

?180/ir.ATN(A) Prints the value in degrees. 



COS 

COS returns the cosine of the argument. 
Format: 

COS(arg) 
where: 

arg is a numeric constant, variable, or expression 

representing an angle in radians. 

Example: 

A=COS(AG) 
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EXP 

EXP returns the value e^^g. The value of e used is 2.71828183. 
Format: 

EXP(arg) 
where: 

arg is a numeric constant, variable, or expression in 

the range ±88.0296910. 

A number larger than the allowed range will result in an overflow error 
message. A number smaller than the allowed range will yield a zero result. 

Examples: 



?EXP(0) 

?EXP(1) 

EV=EXP(2) 

EV=EXP(50.24) 

?EXP(88.0296919) 

?EXP(-88.0296919) 

?EXP(88.029692) 
?EXP(-88.029692) 



Prints 1. 

Prints 2.71828183. 
Results in EV=7.3890561. 
Results in EV=6.59105247E+21. 
Largest allowable number, yields. 
1.70141 183E+38. 

Smallest allowable number, yields. 
5.877471 76E-39. 

Out of range, overflow error message. 
Out of range, returns 0. 



INT 

INT returns the integer portion of a number, rounding to the next lower 
signed number. 

Format: 

INT(arg) 
where: 

arg is a numeric constant, variable, or 

expression. 

For positive numbers, INT is equivalent to dropping the fractional portion of 
the number without rounding. For negative numbers, INT is equivalent to drop- 
ping the fractional portion of the number and adding 1. Note that INT does not 
convert a floating point number (5 bytes) to integer type (2 bytes). 

Examples: 

A=INT(1.5) Results in =1. 

A=INT(-1.5) Results in A=-2. 

A=INT(A+A%) 

X=INT(-0.1) Results in X=-1. 
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A caution here: since floating point numbers are only close approximations 
of real numbers, an argument may not yield the exact INT function value you 
might expect. For instance, consider a simple loop going from 2 to 4 by suc- 
cessively adding one-tenth (.1). 

FOR 1=2 TO 4 STEP. NEXT 
2 

2.1 
2.2 
2.3 
2.4 
2.5 
2. 6 
2.7 
2.8 
2.9 
3 

3. 1 
3.2 
3.3 
3.4 

3.49999993 
r-i.5S9SSSSS 
3.69999339 
3.73393399 
3.89999999 
3.99999999 

REflDV. 

You will see that the six numbers 3.5 through 4 are represented only ap- 
proximately. If these values were in an array A{0) through A(20), the function 
INT{A{20)) would equal 3, not 4 as would be expected. 

LOG 

LOG returns the natural logarithm, or log to the base e. The value of e used is 
2.71828183. 

Format: 

LOG(arg) 
where; 

arg is a positive, non-zero number, variable, or ex- 

pression. 

An Illegal Quantity error message is issued if the argument is zero or nega- 
tive. 
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Examples: 



?L0G(1) 

A=L0G(4) 

A=LOG(10) 

A=L0G(1E6) 

A=LOG(X)/LOG(10) 



Prints 0. 

Results in A=1. 38629436. 
Results in A=2.30258509. 
Results in A=13.8155106. 
Calculates log to the base 10. 



RND 

RND provides the ability to generate random number sequences in PET 
BASIC. At each reference, RND returns a number between and 1, 0<n<1. 



Format: 

RND(arg) 
RND(-arg) 
where: 

arg 



-arg 



Return random number. 
Store new seed number. 

is a positive, non-zero number, variable, or ex- 
pression. This RND function returns the next 
random number in sequence. The value of arg 
in this case is arbitrary; that is, the random 
number returned for a positive argument does 
not depend on the value of the argument, 
is a negative number, variable, or expression. 
The RND function stores a new seed. This 
causes subsequent random numbers to begin a 
new sequence based on the —arg value. RND 
(-arg) returns a small value, constant for the 
given -arg, that should be disregarded. 



Examples: 



A=RND(-1) 



A=RND(1) 



Store a new seed based on the 
value -1. 

Fetch the next random number in 
sequence. 

An argument of zero is treated as a special case in PET BASIC. It does not 
store a new seed, nor does it return a random number. RND(O) uses the current 
system time value Tl to introduce an additional random element into play. 

A pseudo-random seed is stored by the function: 

RND(-TI) Store pseudo-random seed. 

RND(O) can be used to store a new seed that is more truly random, by using 
the following function: 

RND(-RND(0)) Store random seed. 
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You can compare these operations to a deck of cards: RND(-TI) is like shuf- 
fling the deck, RND(O) is like cutting the cards, and RND(-RND(0)) is like giving 
the cards both a shuffle and a cut. 

To generate randonn nunnbers in non-repeating sequences as would be 
needed, say, in games of chance, use RND(-RND(0)) to store a random seed and 
then fetch as many random numbers as needed with RND(1) references, where 1 
can be 1 or any other positive, non-zero number. 

Examples of using the RND function to generate random numbers on the 
PET are given in Chapter 5. 



SGN, for sign of a number, can be used to determine if a number is positive, 
negative, or zero. 
Format: 



SGN 



SGN (arg) 



where: 



arg 



is a numeric constant, variable, or 



expression. 




?SGN(-6) Prints -1. 

?SGN(0) Prints 0. 

?SGN(44) Prints 1. 

IF A>C THEN SA=SGN(X) 

IF SGN(M)>=0 THEN PRINT "POSITIVE NUMBER" 



SIN 



SIN returns the sine of the argument. 



Format: 



SIN (arg) 



where: 



arg 



is a numeric constant, variable, or expression 
representing an angle in radians. 



Examples: 



A=SIN(AG) 
?SIN(45*7r/180) 



Prints sine of 45 degrees. 
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SQR 



SQR finds the square root of a positive number. A negative number results 
in an error message. 

Format: 

SQR(arg) 
where: 

arg 



Examples: 



is a positive number, variable, or 
expression. 

A=SQR(4) Results in A=2. 

A=SQR(4.84) Results in A=2.2. 

?SQR(10) Prints 3.16227766. 

?SQR(144E30) Prints 1.2E+16. 



TAN 

TAN returns the tangent of the argument. 
Format: 

TAN (arg) 
where: 

arg is a numeric constant, variable or expression 

representing an angle in radians. 

Example: 

XY(1)=TAN(180.7r/180) 
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BASIC STRING FUNCTIONS 



ASC 

ASC returns the ASCII code number for a specified character. 
Format: 

ASC(arg) 
where; 

arg is a string constant, variable, or expression. 

If the string is longer than one character, ASC returns the ASCII code for the 
first character in the string. The returned argument is a number and may be used 
in arithmetic operations. ASCII codes are listed in Appendix A. 

Examples: 

?ASC("A") Prints 65. 

N=ASC(B$) 

X=ASC("STR") Prints the ASCII value of "S" (83). 



CHR$ 

CHR$ returns the string representation of the specified ASCII code. 
Format: 

CHR${arg) 
where: 

arg is a valid ASCII code (see Appendix A) in the 

range 0<arg<255. 
CHR$ can be used to specify characters than cannot be represented in 
strings, such as the carriage return code and the double quotation mark. 

Examples: 

IF C$=CHR$(13) GOTO 10 Branches if C$ is a carriage return. 

?CHR$(34);"H0H0H0";CHR$(34) Prints the eight characters 

"HOHOHO" 



LEFT$ 

LEFT$ returns the leftmost characters of a string. 
Format: 



LEFT$(arg,count) 
where: 

arg 
count 



is a string constant, variable, or expression, 
is a numeric constant, variable, or expression 
specifying the number of leftmost characters to 
be returned, in the range 0< count <255. 
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Examples: 

?LEFT$("ARG",2) Prints AR. 

A$=LEFT$(B$,10) 

LEN 

LEN returns the length of the string argument. 
Format: 

LEN(arg) 
where: 

arg is a string constant, variable, or expression. 

LEN returns a nunnber that is the count of characters in the specified string. 
Examples: 

?LEN("ABCDEF") Prints 6. 

N=LEN(C$+D$) 

MID$ 

MID$ returns any specified portion of a string. 
Format: 

!(blank)| Return all characters 

> ) from position to end. 

, count j Return count characters 

starting from position. 

where: 

arg is a string constant, variable, or expression. 

position is a numeric constant, variable, or expression 

specifying the character position in the string at 
which retrieval is to begin. Position 1 is the 
beginning of the string. If the position is beyond 
the end of the string, a null string is returned. 
This parameter must be in the range 
0<position<255. 

count if present, is a numeric constant, variable, or ex- 

pression that specifies the number of charac- 
ters to be returned. If omitted, or if it is larger 
than the count to the end of the string, all 
characters from the starting position to the end 
of the string are returned. This parameter must 
be in the range 0<count<255. 

An Illegal Quantity error message is printed if a parameter is out of range. 
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Examples: 

?MID$("ABCDE",2.1) Prints B. 

?MlD$rABCDE",3,2) Prints CD. 

?MID$("ABCDE",3) Prints CDE. 



RIGHT$ 

RIGHTS returns tiie rightmost characters in a string. 
Format: 



RIGHT$(arg.count) 
where: 

arg 
count 



is a string constant, variable, or expression, 
is a numeric constant, variable, or expression 
specifying the number of rightmost characters 
to be returned, in the range 0<count<255. 



Examples: 



?RIGHT$(ARG,2) 
MM$=RIGHT$(X$+"#"). 



Prints RG. 



STR$ 

STR$ returns the string equivalent of the numeric argument. 
Format: 

STR$(arg) 
where: 

arg is a numeric constant, variable, or expression. 

STR$ converts the number to the same format as it would be printed out in a 
PRINT statement. The first character of the string is a blank if a number is positive, 
or it is a minus sign if the number is negative. 

Examples: 

A$=STR$(14.6) 

?STR$(1E2) Prints 100. 

?STR$(1E10) Prints 1E+10. 

VAL 

VAL returns the numeric equivalent of the string argument. 
Format: 

VAL(arg) 
where: 

arg is a string constant, variable, or expression. 

The number returned by VAL may be used in arithmetic computations. 
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VAL converts the string argument by first discarding any leading blanks. If 
the first non-blank character is not a numeric digit (0-9), the argument is returned 
as a value of 0. If the first non-blank is a digit, VAL begins converting the string 
into real number format. If it subsequently encounters a non-digit character, it 
stops processing so that the argument returned is the numerical equivalent of the 
string up to the first non-digit character. 

Examples: 

A=VAL("123") 
NN=VAL(B$) 



BASIC FORMAT FUNCTIONS 

POS 

POS is a limited use function that returns the column position of the cursor. 
Format: 

POS(arg) 
where: 

arg is a dummy argument and may be string or 

numeric. 

For POS purposes, the character positions along each row are numbered 
through 39. Character positions for a string are numbered through 255. POS 
returns the current cursor position (0-255) except after a Home, Clear Screen, or 
POKE, which do not reset the POS indicator. The position is taken as the current 
cursor position before the POS function itself is typed. POS is reset to at each 
RETURN. 

Examples: 

?P0S(1) At the beginning of a line, 

returns 0. 

?" [x|yTz] ABC":P0S(1) With a previous POS value of 0, 

prints a POS value of 6. 

SPC 

SPC moves the cursor right a specified number of positions. 
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Format: 

SPC(arg) 
where; 

arg is a numeric constant, variable, or expression 

that specifies the number of sl<ips to be printed. 
This parameter must be in the range 
0<arg<255. A value of prints 256 skips. 

SPC begins counting positions at the current cursor position before the SPC 
function itself is typed. 
Examples: 

?SPC(1);"H" 
H 

?SPC(5);"H" 



TAB 

TAB moves the cursor right to the specified column position. 
Format: 

TAB (arg) 
where; 

arg is a numeric constant, variable, or expression 

that specifies the column position to which the 
cursor is to be moved. This parameter must be 
in the range 0<arg<255. 

TAB moves the cursor to the n+1 position, where n is the value of the 
specified argument. 
Examples: 

?"QUARK";SPC(10);"W" These two examples show the 

QUARK W difference between SPC and TAB. 

SPC skips ten positions from 
?"QUARK";TAB{10);"W" the last cursor location, 

QUARK W whereas TAB skips to the 10+ 1th 

position on the row. 
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BASIC SYSTEM FUNCTIONS 



FRE 

FRE is a system function that collects all unused bytes of memory into one 
block (called "garbage collection") and returns the number of free bytes. 

Format: 

FRE(arg) 
where: 

arg is a dummy argument, and may be string or 

numeric. 

FRE can be used anywhere a function may appear, but it is normally used in 
an immediate mode PRINT request. 

Examples: 

?FRE(1) Institute garbage collection and 

print the number of free bytes. 
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PEEK 

PEEK returns the contents of the specified memory location. PEEK is the 
function counterpart of the POKE statement. 

Format: 

PEEK(address) 
where: 

address is a numeric constant, variable, or expression 

specifying the address of the location whose 
contents are to be fetched. 
0<address<65535. 

Any memory locations from to 65535 can be PEEKed except the block of 
system locations from 49152 to 57599; these locations contain the 8K BASIC in- 
terpreter and have been PEEK-protected to discourage examination of proprietary 
software. The protected area returns a PEEK value of 0. Locations of interest that 
you might want to PEEK at are discussed in Chapter 6. 

Examples: 

?PEEK(1) Prints contents of memory location 1. 

A=PEEK(20000) 

ST 

ST represents the current value of the PET's I/O status word. This word is set 
to certain values depending on the results of the last input/output operation that 
affects the status word. 

Format: 

ST 

ST values for tape cassette I/O operations are shown in Table 4-3. 



Table 4-3. ST Values for Tape I/O 



ST Bit 
Position 


ST Numeric 
Value 


Tape READ 


Tape VERIFY 





1 






1 


2 






2 


4 


Short block 


Short block 


3 


8 


Long block 


Long block 


4 


16 


Unrecoverable 


Any mismatch 






read error 




5 


32 


Checksum 


Checksum error 






error 




6 


64 


End of file 




7 


-128 


End of tape 


End of tape 
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The status should be checked, if it is going to be checked, immediately after 
an INPUT# or GET# statement. 

Examples: 

10 IF ST< >0 GOTO 500 Branch on any error. 

50 IF ST=4 THEN ?"SHORT BLOCK" 

SYS 

SYS is a system function that transfers program control to an independent 
subsystem. 

Format: 

SYS(address) 
where: 

address is a numeric constant, variable, or expression 

representing the starting address at which ex- 
ecution of the subsystem is to begin. The value 
must be in the range 0< address <65535. 

Unlike other functions, SYS can be specified alone in an immediate program 
statement. Use of the SYS command is described further in Chapter 6. 

Tl, Tl$ 

Tl and Tl$ represent two system time variables. 
Format: 

Tl Number of jiffies since current startup. 

Tl$ Time of day string. 

Examples: 
?TI 

Tl$="081000" 

Usages of Tl and Tl$ are described in Chapter 5, under "Setting Time of 

Day." 
USR 

USR is a system function that passes a parameter to a user-written assem- 
bly language subroutine whose address is contained in memory locations 1 and 2, 
and fetches a return parameter from the subroutine. 
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Format: 

USR(arg) 
where; 

arg is the parameter value passed to the subroutine. 

The USR function is described in more detail in Chapter 6. 



USER-DEFINED FUNCTION 

DEF FN 

The DEF function (DEF FN) allows the user to define his own special purpose 
functions and use the functions in his program in the same way that the intrinsic 
PET BASIC functions are used. 

Format: 

DEF FN name(arg)=formula Define user function, 
where: 

name is a simple floating point variable name one or 

two characters in length . The name can be 
longer, but an alphabetic name of more than_ _ 
five lett er s yields a syntax error. The function is 
used in the program by referring to the name 
FNname. 

arg is a simple floating point variable name. This is 

a dummy assignment that represents the argu- 
ment value in the formula to the right. A string 
($) or integer (%) arg is not allowed. 

formula is any arithmetic expression containing any 

combination of numeric constants, variables, 
and operators. Normally the arg appears in the 
formula. 

A user-defined function is limited to one 80-character line: however, a pre- 
viously defined function can be used in the formula in another user-defined func- 
tion, so user-defined functions of any desired complexity can be developed. 

A user-defined function is used by typing in the function name, FNname, 
followed by the actual argument enclosed in parentheses. 

FNname(arg) Reference user function. 

Only a single argument can be passed to a user-defined function. The func- 
tion name can be redefined by another DEF FN with the same name in the same 
program. 
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The DEF FN definition statennent is illegal in innmediate mode. However, a 
user-defined function that has been defined by a DEF FN statement in the current 
stored program can be referenced in an immediate mode statement. 
Examples: 



10 DEF FNC(R)= 7r.RT2 



?FNC(1) 
A=FNC(14) 

55 IF FNC(X)>60 GOTO 150 



Defines a function that calculates the 
circumference of a circle. It takes a 
single argument R, the radius of the 
circle, and returns a single numeric 
value, the circumference of the circle. 
Prints 3.14159265 (the value of tt). 
Assigns to A the value calculated by 
the user-defined function FNC. 
Uses the value calculated by the user- 
defined function FNC as a branch 
condition. 
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CHAPTER 5 



Making the Most of PET Features 



In this chapter we go over features of the PET that you will come across 
sooner or later in your PET BASIC programs. Where the "feature" is a limitation or 
other stumbling block, we tell you how to get around it (if possible) or at least 
warn you about it. Where the feature is a real capability, we tell you how to use it 
to its fullest advantage. 

KEYBOARD ROLLOVER 

If you type rapidly you may type faster than the characters can be printed. If 
you press two or more keys simultaneously or press the second key before the 
first character is printed, a keystroke will be ignored — unless your keyboard has 
"rollover." Rollover "remembers" a keystroke until it is printed. Fortunately, the 
PET keyboard has rollover. 

Rollover remembers Incoming keystrokes while a preceding keystroke 
Is being processed. The "remembered" keystrokes are then processed. The 

keystrokes are remembered by storing them in a buffer until they are printed: 



Press Keys 



#1 




Buffer 




J \ 

J Screen 


and 
#2 




Character #1 
Character #2 
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Without this buffer, rapidly incoming l<eystrol<es would be lost before printing — 
and rollover would be impossible. 

The following flowchart shows how rollover works in greater detail. The PET 
must store incoming keystroke #2 in the buffer until keystroke #1 is printed. 
Once keystroke #1 is printed, keystroke #2 is taken from the buffer and printed. 



Press 




Press 


Key^ 




Key2 


♦ 




Print 
character 




Store 
character #2 
in buffer 


♦ 




End of 
keystroke 
processing 


printed 



No 



Yes 



Print 
2nd character 

— r~^^ 

End of 
keystroke 
processing 

All you need to remember about rollover is that it is a beneficial feature of 
the PET keyboard that allows you to type in data faster than you could if rollover 
were not present. 
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Because of the size and type of keys used for the small PET keyboard, you 
may encounter minor data entry problems if you try to type fast on the small 
keyboard. These problem areas are described in detail below. If you have a full 
size PET keyboard, you might proceed to the next section, "The Keyboard Buffer." 

Two-Key Rollover {Small Keyboard) 

There are areas on the compact PET keyboard which do not give predictable 
results during rollover The space key on the bottom row (a SPACE character is in- 
dicated hereafter by the symbol "bS") is coupled with the keys directly to the left 
and right, giving incorrect results. 

coupled 




When the RIGHT BRACKET key and the SPACE key to its left are pressed 
simultaneously: 

Key.| KeY2 



3 (BE 



SPACE 



BE 



correct rollover should print: 
but the PET often prints: 



] \i 



The key coupling erroneously puts the " <" character (to the right of the "bf" key) 
and sometimes and extra "bi " into the buffer. The same problem occurs when the 
keys are reversed: 

Key2 Key^ 



3fflE(- ■' 



SPACE 



USE 



Instead of printing: 
the PET often prints: 



<lz!] or lz!ti(<] 



The above examples show that rollover should not be depended upon 
when typing on the bottonn row of the small keyboard due to the coupling 
problem with the SPACE key But the rest of the small PET keyboard can be 
depended upon for two-key rollover as a valuable safeguard against losing 
keystrokes. 
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Three-Key Rollover (Small Keyboard) 

Three-key rollover remembers the second and third keystrokes when three 
keys are pressed before the first key is released. Three-key rollover Is unpredic- 
table on the PET and should not be depended upon, as correct printing depends 
upon the keyboard position of all three keys. This section is only for those 
readers who are interested in PET trivia and who want to experiment in 
three-key rollover. 

The compact keyboard may be divided into odd and even rows, as shown in 
Figure 5-1. 



Odd Even 
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I * J 


m 




FT 


m 




I?1 




a 




f em ) 

^ HOME J 


[cursor 
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|ctfitsaR| 


[inst] 
[del III I 




f D 

LvyJ 


1 1 
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11} 








SI 




m 


Cb] 
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m 




m 




m 


m 


SI 






m 


m 
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m 


c 

5 


a 

6 


m\ 


iff 


It 


C 


Kl 1 
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IS 




m 


m 


m 


m 


u 
f* 

[ N ) 




\f 


a 
2 




m 


[E 


f Off 

RVS 

[ ™ 






llJ 


SPACE 1 


m 




run] 
stop] 


|s*itfT jj 






E 

• 


lil 





Figure 5-1. Odd/Even Division of PET Keyboard 

If the three keystrokes, Key-) , Key2, and Keys, ^''^ adjacent to each other, 
then the result is correct and will be printed as: 

(characters of) Key-i Key2 Key3 

But if the three keystrokes are adjacent, the result is incorrect, and the type 
of error depends upon whether Keyi is in an odd or even column. Figure 5-2 il- 
lustrates the two different types of errors that occur depending on the position of 
Key-]. 

To demonstrate this phenomenon, let us use three actual examples from the 
keyboard. 

The first example shows three non-adjacent keystrokes simultaneously en- 
tered. The diagram shows F, U, N entering the buffer and then printing to the 
screen in the correct order. 
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Keyboard 

i 

Rollover 
Buffer 
1 

Result 


a) Key-] in odd column (shaded) 


b) Keyi In even column 


□□mmpn 


□ 2 man 




□ m 


□ El □ 2 3 


hh\ * * * 



Figure 5-2. Odd/Even Three-Key Rollover 



Example 1 : 




^ FUN 

The second example illustrates three adjacent keys with Key-] in an odd col- 
umn. The three keys used are Q, W, and E. Observe that an extra character has 
been put into the buffer without actually being typed in. This extra character is al- 
ways from the key directly to the right of Keys; ^^is example, R is directly to the 
right of Key3, E. Not only is Keys '^ot entered as the third key, it is not entered as 
the fourth key either; Key2 is again put into the buffer before Keys finally in- 
serted. 

Example 2: 




^ QWRWE 
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This is another example of a key coupling error. The keys throughout the 
keyboard are coupled together in various combinations, but only give problems in 
these certain combinations. Because of key coupling, the extra key is thrown in 
erroneously. 

The third example shows a set of three adjacent keys with Key-) in an even 
column. When Keyi is positioned in an even column, Key2 is passed by and never 
put into the buffer for printing. 



Example 3: 



Kev2 '^®V3 





□ 
W 


3 


f ^ 




* 1 

i A J| 


s j 


> 5 ) 








X 


m 


(51 





Key-] Key2 Key3 



35 



mm 



r 



SF 



The bottom row of the small keyboard is a special problem area for three-key 
rollover. It is inconsistent in relation to the three-key rollover for the remaining 
keyboard. 



\ 9 



HE 



3E 



RUN 
ISTOP 



The simultaneous hitting of the three following keys: 



■ 



produces only the reverse graphic representation of a fourth key: 



The change from normal to graphic mode might be due to reverse coupling of the 
SHIFT and RVS keys. 
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The following sets show more of the rollover inconsistency that occurs with 
keys in the bottom row of the keyboard: 



Key, 
Column 



Keys 



Rollover Result 



Key Order 



#1 #2 #3 #4 



Even 



[<\i 



Keys #1, 4, 3 
Keys #1, 3. 4 



Even 



#1 


#2 


#3 


SPACE ] 




\r 




#1 


#2 


#3 




1 SPACE j 


I? 



< <> 



Keys #1, 2, 2, 3 



Odd 



]< 

]<b(< 



Keys #1, 3 
Keys #1, 3, 2, 3 



./^l #2 #3 



Odd 



3E 



[RUN 
STOP 



Key #1 



These three-key rollover problems are not unique to the alphabetic and 
special character keys alone. The right-hand portion of the keyboard, containing 
the cursor controls and numerical keys, is a continuation of the even/odd column 
format as shown in Figure 5-1. Cursor control and numeric rollover respond like 
the alphabetic and graphic rollover. 

In summary, to avoid extraneous characters and combinations, hit only one 
key at a time on the small PET keyboard. Be especially careful when depressing 
any of the bottom row keys. Three-key rollover on the PET is a desirable option, 
but, as the examples show, should not be depended upon for completely accurate 
keyboard entry when typing is very fast or erratic. 



173 



BUFFER 

The PET has a 10-character keyboard buffer to hold the ASCII code 
equivalents of characters whose keys are pressed at the keyboard. This is nor- 
mally of no concern to you, but you should be aware of how the buffer operates 
for when you are programming PET inputs. 

To illustrate, load the final saved version of the BLANKET program (from 
Chapter 3) and press a key for display. While the display is occurring, press up to 
ten more keys, then sit back and relax. Each of the keyed-in characters will be 
fetched, in turn, and displayed by the BLANKET program. 

Let's look at this process in more detail. 

Whenever you press, say, the A key, it goes into the first storage location in 
the 10-character keyboard buffer: 

Keyboard 
Buffer 



The PET keeps track of the number of characters in the buffer and the location of 
the next character to be displayed. When GET fetches this character, a pointer is 
changed to indicate that this character has been fetched: 



Keyboard 
Buffer 



► 1 

2 
3 
4 
5 
6 
7 
8 
9 

10 
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When you press additional l<eys wliile tine A is being displayed, the addi- 
tional characters are stored in the keyboard buffer beginning at the next available 
location. Suppose you type in A and while A is being displayed you type in B, C, 
D, and E. These characters are all stored in the keyboard buffer: 



Keyboard 
Buffer 



1 


A 


2 


B 


3 


C 


4 


D 


5 


E 


6 




7 




8 




9 




10 





If you let the program continue, it will successively display all the letters 
stored in the keyboard buffer. After A is finished, the program fetches B and dis- 
plays it across the 20 lines, then it fetches C and displays it, etc. 

What happens if you type in more than ten characters? At the tenth 
character the buffer pointer wraps around, and continues storing the characters 
being keyed in from position 1 of the buffer. If you type in the first eleven letters of 
the alphabet, A-K, the first ten letters are stored in the ten buffer locations, then 
the letter K is stored back in the first buffer location, overlaying the A: 



Keyboard 
Buffer 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 



-K overlays the A 



When the program finishes displaying the A, it returns to fetch another 
character. But the PET has already fetched the character in location 1, so it con- 
siders the buffer empty! Keying in exactly eleven characters, or multiples of 
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eleven characters, produces no additional automatic displays in program 
BLANKET. 

Typing in 1 2 to 20 characters causes the most recent string of characters 1 2 
and on to be printed. For example, type in A, and while A is being displayed type 
in B, C, D, E, F, G, H, i, J, K, L, M. N, 0, P, Q, R, S, and T. 



9 

10 



1 St ten 
characters 


2nd ten 
characters 


A 




K 


B 




L 


C 




M 


D 




N 


E 







F 




P 


G 




Q 


H 




R 


1 




S 


J 




T 



• Next character 
displayed 
after A 



The order of display is A, L, M, N. 0, P, Q, R, S, T. 

The same holds true for additional multiple characters. Type in A and while 
A is being displayed type in the rest of the alphabet in order (you will have to be 
fairly quick to do this). 





1st ten 


2nd ten 


last ten 




characters 


characters 


characters 




1 


A 




K 




U 




2 


B 




L 




V 


^ Next character 
displayed 
after A 


3 


C 




M 




W 


4 


D 




N 




X 




5 


E 









Y 




6 


F 




P 




Z 


^ Last character 

displayed 


7 


G 




Q 




(Q) 


8 


H 




R 




. (R) 




9 


1 




S 




(S) 




10 


J 




T 




(T) 





The negating effect occurs for every 1 1 characters. For instance, type in A 
and B, and let A display completely. Then, while B is displaying, type in C, D, E. F, 
G, H, I, J, K, and L. The additional ten characters are cancelled out just as the ad- 
ditional ten characters B through K were when entered while A was being dis- 
played. 
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Emptying the Buffer Before a GET 

This illustration of stuffing the keyboard buffer in advance is mostly a mild 
surprise, and a rather pleasant one, for program BLANKET. You can save up the 
characters you want displayed rather than keying them in one at a time in 
response to the HIT A KEY message. For other programs, however, it could come 
as a rude shock that idle toying with the keyboard during, say, a game could 
cause the game program to fetch an unwanted string of characters from the 
keyboard buffer. To avoid this, you can program a loop to empty the keyboard 
buffer, discarding the fetched characters, before fetching an intended response 
character. Implement a GET fetch by the code example below; 

95 FOR I^lTOieOET C* : NEXTI : REM EMPTV KVED EFR 
i00 GET C*:IF C*="" GOTO ISO 

Line 95 is the added line to empty the keyboard buffer by getting all ten possible 
characters that might have inadvertently been "stuffed" there. Line 100 is the 
standard BLANKET GET line. 

Edit program BLANKET by adding line 95 as shown above. Now press any 
combination of keys while a character is being displayed. Any stored characters 
are fetched and discarded by the GET loop, so you will not have any automatic 
display continuations with this loop added. 

TWO-KEY REPETITION 

A commonly used keyboard typing technique is to hold down one key while 
pressing and releasing another. 



Press 
Keyi 





i 


Press 
Key2 




Release 
Key2 



Release 
Key -I 



Holding down one key while pressing another key is often an unnoticed, au- 
tomatic typing action used during a conversion from alphabetic to graphic or 
shifted mode. But it may be expanded to other uses, such as repeating sequences, 
to produce some interesting effects. 

Two-key repetition causes an alternating sequence of two characters. This 
method is similar to rollover because a sequence is produced, but the results are 
different. The following diagram shows what happens: 



Press 




Press 




Release 




Release 


Keyi 




Key2 




Key2 




Key-| 


f 'rint^ 




r 'rinM 




r Prinn 




r No^ 


I Keyi ; 




I Key2 i 








L action J 
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Two-key repetition is a feature of any PET l<eyboard, small or full size. 
For simplicity, only the compact keyboard is shown below. Keys available for 
Key-] will differ, depending on which keyboard you have. 

As with rollover, the keyboard is divided into odd and even columns, 
with only the odd column keys available for Keyi- However, the entire right- 
hand numeric board and cursor controls are available for Key-|, regardless of odd 
and even columns. 

Keys available as Key-| (shaded) 



1? 




□ 
# 


□ 




m 


CB 








ml 




nun.if (-. 'iifiNsrii 

llj^^^llc^^l^l 

l,^j'L_8jji,^':L2j 
iT^llTnlll^'ifTl 

L4JiL5Ji'l6^)iL*J 


\r. 


is:' 


T 


R 




?i 


m 


m 




Hi 




M\ 


It 


D 1 


If: 


G 


11] 






m 




1 

E 
T 

u 


' ♦ ] 

ii z J 

j SHtrT 1 


( * 

I X J 


i' s 1 
' c , 


( K 

1 V 


1' .L 

\{b 


m 


S] 


la 


m 


[ 7 


( OFF 

RVS 

[ OH 


\rw 
|L®_ 


ll [ 


1 ^ 

Ll. 


SPACE 


m 


I > J 


run] 
[stop] 


t 



Any key in the even columns used for Keyi will not produce a repeating 
sequence. Another peculiarity is that the cursor keys must be used as Key-j in 
either programmed or immediate mode. 

Kevi 

V V 



■"rrilK <= lllfiNST 
"y'J ["i"] [del 



Further limiting this feature is the requirement that Key2 be to the right of 
Keyi in the same row, or below the row of Key^ If Key2 is located above Keyi or 
to the left, the process stops after the first printing of Key^ 



Unshaded 



(□□□□□□□ 



usable for □ □□□ 




Kevi 



, . \ usable for 



A useful application to demonstrate two-key repetition is creating graphic 
diagrams with cursor movements. For example, draw the diagonal line shown in 
the diagram below. 
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To create this pattern, use the CURSOR i key as Key-| and the asterisk (*) key 
as Key2- As you hold down Keyi, repeatedly press and release Key2; the cursor 
will autonnatically move and print the "•" in a diagonal line. Following is a 
flowchart of the process: 

Press Key-i 
CURSOR}. Do 
not release 



Press Key2 * 
Release 




Release Key2 
CURSORi 



As you can see, if you hold down Key-j as you press and release Key2, it ap- 
pears as if the two keys were being pressed alternately. 



Press 




Press 




Release 




Press 




Release 


Kevi 




Key2 




Key2 




Key2 




Key2 



etc. 




But if Keyi is released while Key2 is depressed, Keyi will not be printed a second 
time. 

There are countless combinations available for repeating sequences on the 
PET. Since three-or-more-key repeating sequences have limited use and varied 
and unpredictable results, they will not be covered in this book, but may serve as 
an interesting exercise for the curious programmer. 
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STRINGS 

CONCATENATING STRINGS 

Recall that when creating strings the PET will accept alphabetic, graphic, 
and numeric characters, or combinations of these. While handling strings. It may 
be useful to connect one or more strings together into a single string by linking 
them end to end In a chain-like fashion: 



[ 



String 1 



[ Strin~ 
I String's 




String 4 











1 


String 1 


! String 2 ! 
' 1 


String 3 | 



Suppose, for example, we want to create one large string. Z$, containing the 
alphabet A through Z. By linking together the last character of A$, shown below, 
with the first character of J$. and the last character of J$ to the first character of 
S$, Z$ may be created: 

A$ J$ ^ — , 

[g]j^gg^2'[!ElIMmp|"|RC isiTiu^ 

Z$ fAlBlClDlElFlGlH|l|J|K|L|MlNlOlPlOlRlSlTlU|V|W|X|Y|Z| 

Concatenating alphabetic strings, such a A$, J$ and S$, may be done using 
one simple statement: 

Z$=A$+J$+S$ 

The arithmetic operator "+" adds the contents of numeric variables or 
the numbers themselves. But when used with strings the "+" serves as a 
linkage sign to concatenate the strings together. Table 5-1 summarizes the ad- 
dition of strings and numbers. 

A word of caution: strings cannot be separated or broken apart in the 
same fashion as they are concatenated; they cannot be "subtracted" the 
way they are "added." For Instance, to create string X$ containing the contents 
of J$ and S$ from our original strings A$, J$, S$, and Z$, it would be Incorrect to 
type: 

X$=Z$-A$ Incorrect 
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Table 5-1. Addition (+) Operations 



Sign 


Type 


Example 
Statement. 


Operation 


Result 


+ 


numbers 


P = 2 + 3 


2 + 3 


r = b 


+ 


numeric variables 


Q =T + S 


12345 
+11111 


Q = 23456 


T = 1 


2 


3 


4 


5 


S = 1 


1 


1 


1 


1 




+ 


alphabetic strings 


R$ = A$ + F$ 






A$ = / 




C 


D 


E 


lAlBlCIDIEI IFIGIHUUI 


R$=|A|B|C|D|E|F|G|H|I|J| 


F$= F 


-G 


H 


1 


J 






+ 


numeric strings 


Q$ = T$ + S$ 






T$ = 


1 2 


3 


4 


5 


|1|2|3|4|5|--|1|1|1|1|1| 


Q$ =|11213|4|5|11111|111| 


S$ = 


1 1 


1 


1 


1 







Try it yourself. Type the values of A$, J$. S$. Z$, and X$=Z$-A$ into the PET as 
shown below. Your PET will respond with a ?TYPE MISMATCH ERROR IN LINE 
50. 

10 fl*="l=lBCriEFGHl" 
20 .J*:="JKLMNOPQR" 
30 S*="STUVWXVZ" 
40 Z*=R*+J*+S* 

50 X*=2*-fl* Incorrect attempt to get J through Z string 

S0 PRINT X* 

RUN 

-■TVPE MISMATCH ERROR IN LINE 50 

The only valid arithmetic operator for strings is the addition sign (+). The 
other arithnnetic operators (-, ♦, /) will not work. The Boolean operators (<, >, =) 
may be used for string comparison. 

The correct method of extracting part of a larger string is to use the string 
shift functions listed in Chapter 4. With the LEFT$, MID$, and RIGHTS functions it 
is possible to extract any desired portion of a string. In our example, the letters J 
through Z can be extracted as follows: 

50 X*=RIGHT*<Z*.. 17> 

X$ = RIGHT$( |A|B|C|D|E|F|G|H|l|J|K|L|M|N|0|P|Q|R|S|T|U|V|W|X|Y|Z| , 17) 
X$ = fjI]<lL|M|NiO|P|Q|R|S|T|UiV|W|X|Y]z] 

or, the string may be built by the concatenation of J$ and S$: 
50 .X*=J*+S* 

X$ = |j]i<fLrM|N|0|PiO|R| + |SiT|U|V|W|X|Y|Z] 
X$ = ]j|K|l|MiN|0|P|Q|R|S|T|U|V|W|X|Y|Z| 
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Printer/Screen Concatenation 

Another method is available if you want the strings concatenated for screen 
or printer output only, and not retained in the PET mennory. This is done with the 
PRINT statement and semicolon separators (;) between the strings; 

PRINT 1=1*.; J*.; S* 

RUN 

fiECDEFGHIJKLMNOPQRSTUVWXVZ 

The above result (A through Z) is equivalent to the contents of Z$ because the 
semicolons allow no embedded blanks between the strings. The only difference is 
that the screen result (A through Z) is not retained anywhere in PET memory. 
However, this method will not concatenate strings without embedded blanks if 
the strings were previously converted from a numeric variable with the STR$ or 
VAL functions; this will be discussed further in the "Numeric Strings" section. 

Concatenating Graphic Strings 

Concatenating graphic strings can be very useful in creating pictures and 
diagrams. Graphic strings are concatenated in the same way as alphabetic 
strings. 



NUMERIC STRINGS 

A numeric string is a string composed of numbers — or a combination of 
numbers and decimal point, negative sign, or exponent — that evaluates to a real 
number. A numeric string must be identified by a "$" following the string name. 

The contents of numeric strings may be assigned in two different ways, 
each yielding slightly different results. When numeric variables are assigned to 
numeric strings using the STR$ function, the sign value preceding the num- 
ber (blank if positive, "-" if negative) is transferred along with the number. 
This is shown in the short program below; 

10 flE= 12345 
20 T*=STR*<FlB.'> 
30 PRINT"l=IE=".:ftB 
40 PRINT"T*=".;T* 

RUN 

flB= 12345 
T*:= 12345 
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However, if a number is entered enclosed within quotation mari<s or entered 
as a string with an INPUT statement (or other similar statement such as GET or 
READ), the numeric string is treated like any other alphabetic or graphic string 
and no blank for a positive sign value is inserted before the number. This is 
demonstrated in the following program: 

10 flE= 12345 
20 T*=" 12345" 
30 PRINT"flB=".;i=lB 
40 PRINT"T*=",;T* 

RUN 

flB= 12345 
T*= 12345 

Notice that there is no preceding blank printed in the T$ string above. 

Concatenating Numeric Strings 

Let's concatenate two strings, T$ and Q$, to make a new string, W$. W$ 
should contain the ten digits 1,2,3,4,5,6,7,8,9,0. 

10 1=12345 
20 GJ=6?S30 
30 T*=STRt<T:) 

40 g*=str*<q:) 

50 W*:=T*+Q*-« Create new string W$ 

60 PRINT"W*=";W* 

The result would be: 

W*= 12345 67890 

Why the embedded blanks before the 1 and 6? T$ and Q$ were originally 
positive numeric variables T and Q; when T and Q were converted from numbers 
into strings, the sign position was transferred along with the number. 

T lai 2345! Q |li(67890| 

T$ |af|1|2|3|4|5| Q$ |bf|6|7|8|9|0| 

Therefore, when T$ and Q$ are concatenated, the new string W$ contains a 
first-digit blank and an embedded blank before the first digit of Q$. 

Q$ = w$ 

|b(i1|2|3|4|5| |b(|6|7l8|9|0| |b(|1|2|3|4|5Hi(|6|7|8|9|0| 

How do we get rid of the embedded blanks? The solution to this problem is 
much simpler than it may at first appear. The method is not to attack the contents 
of W$ and try to get rid of the blanks there, but to go back to where the blanks 
first pose a problem; when they are in the separate strings T$ and Q$. Look again 
at the contents of T$ and Q$: 

T$ Ib<lll2l3l4l5l Q$ Ibil6|7|8|9|0| 
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The only values we want to appear in W$ are the numbers to the right of the 
sign value in both T$ and Q$. Here again the string functions will aid us. The 
LEFTS, MID$, and RIGHTS functions allow the programmer to select any character 
or group of characters from within a given string. For our problem, we want just 
the characters to the right of the first character, the first character being the sign 
value (either blank or"-"). For instance, TS=RIGHT$(TS,LEN(TS)-1) would result 
in; 

Before; After; 
T$ |b(|1|2|3|4|5| T$ |112|3|4|5| 

Since the first digit desired is in the second position of the string, by telling 
the PET to use only the values starting in position #2 and moving to the right, it 
will drop the sign character. Therefore, to save programming steps and memory 
space, we can program the PET to concatenate TS and QS and drop the leading 
blank all in one statement; 

W$=RIGHT$(T$,LEN(T$)-1)+RIGHT$(Q$,LEN(Q$)-1) 



Drop leading blank 
of T$ 



Drop leading blank 
of Q$ 



Concatenate 
T$ and Q$ 

Our example program, amended to eliminate the sign digits, appears as 
follows; 



10 T=12345 
T = |li(1 23451 

£0 Q=67S30 
Q =@67890[ 

30 t*=str*<t:;' 

T$ = CTlT2T3l4[5] 

40 q*=str*c:q> 

Q$ = |li<|6|7|8|9|0| 

50 Wi:=R I GHT* < T* .. LEH C T* .■' - 1 ::' +R I GHT* LEN < Q* ;;■ - 1 :•' 

W$ = RIGHT$IT$,6-1) +RIGHT$(Q$,6-1) 
W$ = RIGHT$(T$,5) +RIGHT$(Q$,5) 

W$=T$ | 1|2|3|4|5| +Q$ I6|7|8|9|0| 

W$ = |112|3|4|5|6|7T8l9]0l 

60 PRINT "W*=".;W* 
RUN 

W*= 1 234567S30 
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In the example above, note that line 50 does not check for negative num- 
bers. If both numbers are negative, then the leading character of T$ should not be 
dropped; this allows the negative sign to appear in front of the entire number W$. 
If the two strings have different signs, they should not be concatenated. When 
concatenating two strings with different signs, the following answers result: 

T$ |li(|l|2|3|4|5| + Q$ |-|6|7|8|9|0| = W$ [ti:j1|2|3|4|5|-|6|7|8|9|0| Incorrect 
T$ Hl|2|3|4|5| + Q$ Hi<|6|7|8|9|0| = W$ y 1|2|3|4|iij|5|6|7|8|9|0| Incorrect 

In summary, any type of string can be concatenated. The only string 
type that must be treated differently is a numeric string converted from a 
non-string source. When the extra space for the sign of numeric strings is taken 
into consideration, then string concatenation becomes an easy, useful tool. 



PROGRAMMED CURSOR MOVEMENT 

In Chapter 2 we discussed the screen editing capabilities of six PET cursor 
control keys: CLEAR SCREEN/HOME, CURSOR UP/DOWN, CURSOR 
LEFT/RIGHT, INSERT/DELETE. RETURN, and REVERSE. 



R 

i If OFF 1 

R 1^ 'I 

N J 

Although these six cursor keys function in immediate mode, it is also possi- 
ble to program cursor movement. This allows you to move output on and around 
the screen during program execution, when manual cursor movement via the 
keyboard is inhibited. By programming cursor movement you can format output 
without using programmed spaces and end-of-line checks. 

You can program cursor movement using 1) the PRINT statement, and 
2) the CHR$ function. This section will concentrate on programming cursor 
movement with the PRINT statement. Cursor movement using the CHR$ function 
will be discussed in the following section, "Programming Characters in ASCII." 

THE PRINT STATEMENT 

Only four of the six cursor keys are programmable using the PRINT 
statement: CLEAR SCREEN/HOME, CURSOR UP/DOWN, CURSOR LEFT/RIGHT, 
and REVERSE. The INSERT/DELETE key and the RETURN key are not pro- 
grammable with the PRINT statement. 

The programming rules to print any character apply also to cursor move- 
ment keys. The first step is to type PRINT followed by a set of quotation marks: 

PRINT" 
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Next enter cursor movements, along with any other characters, ending with 
another set of quotation marks. When a cursor key is pressed following an odd 
number of quotation marks, the cursor movement is programmed and a sym- 
bolic representation (see Table 3-1) of the cursor movement is printed. The 
PET remains in this program mode until it encounters an even number of 
quotation marks; then it returns to immediate mode. 

100 PRIMT';*m'^ 

— Quotation set #1 : change immediate mode to program mode 

— Programmed representation of cursor right 

— Quotation set #2; change program mode to immediate mode 

When the PRINT statement is subsequently executed, the PET interprets the cur- 
sor representations and moves the cursor accordingly. 

RUN 

* .* 

To practice simple programmed cursor movement, type in the following 
program: 

10 PRINT" <CLEAR SCREEN >■■; 

20 PRINT"<CURS0R1>* <CURSORl>* <CURSORl>* <REVERSE><CURSOR|.>» 

<CURSORt>* <CURSORI>*" 
30 PRINT" <CURSOR IXCURSOR 1> <CURSOR l> <CURSORi >": 

The program should look like this on your screen; 

10 PRIHT"r3".: 

20 PR I NT " mmm sr»i¥."»- " .■ 

30 PRINT"W«Bli!l" 
40 END 

Upon execution, the output should appear as follows: 

* J3 

* S3 
* 

This may or may not have been what you expected. If you expected the character 
sequence: 

".mmm" 
to print the asterisks in a vertical line: 

* 

* 

or if you expected the character sequence: 

"arwi.T*.'!*" 
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to print the asterisks back up over the original three: 



you forgot about the automatic right movement of the PET cursor. Although 
the programnned cursor control informs the PET to move the cursor directly up or 
directly down, the asterisks will print in a diagonal line due to the cursor's auto- 
matic advance. Each time a character is printed, the cursor is automatically ad- 
vanced one space to the right to prevent overwriting the next character. The 
following diagram shows the cursor movement of the previous program: 



To print a vertical line, you must compensate for the automatic advance by 
moving the cursor back one space to the left before moving it up or down one 
space. For example, the following program statement prints a vertical line of three 
asterisks down and then a vertical line of three asterisks back up next to the origi- 
nal three. 



If you attempt to program the INSERT/DELETE and the RETURN keys, you 
will encounter some surprising results. 

The INSERT key is not programmable, although it appears to be. If you try to 
program the INSERT key, a " Q] " will appear between the two sets of quotes. 
But when the statement is executed the PET simply ignores the INSERT character. 

The DELETE and RETURN keys remain in immediate mode. Trying to pro- 
gram the DELETE character in a PRINT statement will merely erase the previous 
character; the RETURN character in a PRINT statement will immediately move the 
cursor out of the statement and to the next line. 

A word of caution: if you wish to move the cursor with cursor control 
Iceys while entering characters between quotes in a PRINT statement, you 
must be sure to first get into immediate mode. If you remain in program 
mode, the cursor editing movements will be included as part of the program 
statement. To get out of program mode, type a second set of quotation marks or 
press RETURN. Either method will return the PET to immediate mode, allowing 
you to go back and make the necessary corrections. 



*■ 




Automatic cursor adVance 



20 PRiHT";e»:«*:i!»;r».T*n* 
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THE CHR$ FUNCTION: PROGRAMMING CHARACTERS IN ASCII 

Certain PET characters cannot be programmed by enclosure within 
quotation marl<s. It is possible to program these select characters using their 
ASCII values. ASCII is the code name for "American Standard Code for Informa- 
tion Interchange." ASCII assigns a unique number in the range of to 255 to each 
alphabetic and numeric character, and to various symbolic characters. Table 6-4 
in Chapter 6 lists the standard ASCII codes. Appendix A shows the PET ASCII 
codes. Notice that the PET ASCII chart assigns numbers to cursor controls and 
graphic characters peculiar to the PET. 

The CHR$ function translates an ASCII code number into its equivalent 
character. The format of the CHR$ function is: 

CHR$( ) 

L 

ASCII number from to 255 of 
desired character or control 

To obtain the correct ASCII code for the desired character, refer to Appendix 
A. Scan the columns until you find the needed character or cursor control, then 
note the corresponding ASCII code number. Insert its ASCII code between the 
two parentheses of the function. For example, to create the symbol "$" from its 
ASCII code number, first scan the PET ASCII chart for "$". "$" has two ASCII 
values: 36 and 100. Which value should you use? Actually either number works 
just as well. But for good programming technique, once you select one number 
over the other, use that number consistently throughout the program. We will use 
number 36 and insert it into the function as follows: 

CHR$(36) 

Try printing this character in calculator mode on your PET. 
$ 

Now, try printing ASCII code 100: 
?CHRt<:i00> 

The result is the same. Experiment in calculator mode using any ASCII code from 
to 255. 

You can use the CHR$ function in a programmed PRINT statement as 
follows: 

REflDV. 

10 PRIHT CHRf ';:36).;CHR*<42>.;CHR*<166> 

RUN 

**1 
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Using CHR$ and ASCII values makes it possible to program or do com- 
parison checking for cursor controls such as RETURN and INSERT/DELETE. Sup- 
pose a program must check incoming characters from the keyboard to see if the 
programmer depressed the RETURN key: this may be needed when using an IN- 
PUT or GET statement. You could check for a RETURN which has an ASCII code of 
13, as follows; 

10 GET >it 

20 IF >-$=CHRt<i3:> OOTO 340 
30 GOTO 10 

This test would be impossible if you tried to put a RETURN between quota- 
tion marks; 

20 IF y.t-=" \ RETURN | "GQTO 340 
t 

Impossible 

This is impossible because when you depress the RETURN key following a set of 
quotes, it automatically moves the cursor to the next line; 

20 IF x*=" N 



As you can see, use of the CHR$ function and ASCII numbers is extremely 
helpful because it allows you to program characters and controls which could not 
otherwise be programmed. 



ARITHMETIC 

With the PET, you can do addition, subtraction, multiplication, and 
division, using up to 9-digit numbers in either calculator mode or program 
mode. A 9-digit length limit can cause problems. For example, integer numbers 
range from to 999999999; in dollars and cents this gives you a range of $0.00 to 
$9,999,999.99 (or $999,999,999 if cents are not used). Fractional numbers may 
range from 0.000000001 to 99999999.9. Although these limits pose no problems 
in many applications, numbers will frequently exceed these limits in business and 
scientific applications. 

Two programming methods can overcome the PET's numeric length 
limitations. The first method calculates the numbers as numeric strings. The 
second method calculates with multiple integer math, where a large number 
is separated into smaller segments, and each segment is handled separately. 
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ADDITION 



This section will demonstrate how both the numeric string and multiple in- 
teger techniques add two integer numbers larger than nine digits in length. Both 
the augend and addend must be positive integer numbers. The augend is the first 
number in the equation, and the addend is the second number, to be added to the 
first. 

Method 1 : Addition via Numeric Strings 

The steps involved are; 

1. Input the augend and addend as two positive numeric strings. 

2. Right justify the strings. 

3. Add the corresponding digits of the strings separately, including carry. 

4. Concatenate the answer into a one-string result. 

5. Print the answer string. 

Let us examine each step in turn. 

Step 1 : Input the augend and addend as positive numeric strings with 
an INPUT statement. 



10 PRINT "nts**flrDI TION***" : PRINT A$ |1i2|3|4|5|6|7|8|9|0|1|2|3l4l5l6l 



RUN 

***flIiriITION*.** 

•? 1 2345S7S90 1 23456 
??57943572 

A$ is the augend and B$ is the addend. Both may initially exceed the 9-digit 
length limit with the INPUT statement. For simplicity we will allow only positive 
integer numbers to be input. Once you are familiar with the basic concepts of the 
addition program, you may experiment and alter the program to allow for nega- 
tive and fractional numbers. 

Step 2: Right justify the strings. Before performing arithmetic operations, 
the numbers should be right-justified because, in BASIC, alphabetic and numeric 
strings are automatically left-justified. If the contents of numeric strings are added 
without first being right-juslified, the answer will be incorrect, as shown below: 



Screen Display 



Representation of Memory Contents 



20 INPUT Pl*..E* 



B$ |5|7|9|4|3|5|7|2l 



Left Justified 
Incorrect 



Right Justified 
Correct 



1234567890123456 

+ 57943572 

7028925090123456 



+ 



1234567890123456 
f 57943572 



1234565948067028 



/SO 



The following statements right-justify the shorter of the numeric strings A$ 
and B$ and fill it with leading zeros until it equals the length of the longer string. X 
is assigned to the length of A$, and Y to the length of B$: 

30 BLfiNK*=" 

40 x=LENt:fl*> : v=len<b*:j 

50 IF X<V THEN fl*=LEFT*<BLflHk*.. V-X>+flt 
60 IF vex THEN B*=LEFT*<ELRNK*.. X-V>+E* 

BLANKS in line 30 is a buffer string to fill the shorter numeric string with blanks. 
Lines 50 and 60 use the LEN function to compare X (the length of A$) to Y (the 
length of B$), and subtract the length of the smaller string from the length of the 
larger string. In our example B$ is shorter than A$, so the length of B$ is 
subtracted from the length of A$. 

60 IF V<X THEN B*=LEFT^ < ELftNK ^ ^^>^-V > +B» 

Length of smaller string subtracted 
from length of larger string 

If the length of A$ is 16 digits and the length of B$ is 8 digits, the difference 
is 8 digits: 

A$ |1|2|3|4|5|6|7|8|9|0|1|2|3|4|5|6l X = 16 
B$ |5|719|4|3|5|7|2| Y = 8 



X- 


-Y 


= 8 


16- 


-8 


= 8 



The number of blanks concatenated onto the front of B$ is the difference of 
the two lengths. Since the difference is 8, eight blanks are taken from BLANK$ to 
fill the shorter string. Blanks are then concatenated to the front of the shorter 
string B$ with the following statement: 

LEFT$(BLANK$(X-Y))+B$ 

The procedure is as follows: 

B$=LEFT$(BLANK$,X-Y) +B$ 
B$=LEFT$(BLANK$,16-8) +B$ 
B$=LEFT$(BLANK$,8) +B$ 



B$:=LEFT$( |li(|li<|bi|lzi|lii|feiHii|fe(|lii|lii|li(|l;i|lii|li(HifHi(| .8) +B$ 

B$=|gggggggg + |5|7|9|4|3|5i7i2i 

B$=|b(llz!|l!(|(!(lb(|bi|b!|l!(|5l7l9|4l3|5|7|21 



A$= |l|2|3i4|5|6|7|8|9|0|l|2|3|4|5|6| B$= |li<|lii|b(|lziWbi|lzi|bi|5|7|9|4|3|5|7|2| 
16 digits 16 digits 
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step 3: Add the corresponding digits of the strings. At first glance, you 
might assume that A$ and B$ can now be added using the following statement; 

C$=A$+B$ 

This is incorrect. When strings are added with a plus sign they are not added, 
but are concatenated: 

C$=A$+B$ 

C$= [l|2|3|4|5|6|7|8|9|0|l|2l3|4|5|6| + |lii|t^Nli<|bHi(|l^N5|7|9|4|3|5|7|2| 
C$=| l|2|3|4|5|6|7|8|9|0|l|2|3|4|5|6|bi|lii|t(|lii|bi|lii|biN5|7|9|4|3|5|7|2l 

We want to add the digits in the strings, not concatenate the strings. To add 
the contents of numeric strings, each digit must be extracted separately 
from the string, converted into a numeric digit, then added to one digit from 
the other string. This is done with a routine using the two string functions VAL 
and MID$. 

1020 FOR I=LEH(:fl*> TO 1 STEP-1 
1 030 fl= VflL < M I n* < .. I .■ 1 > > 
i 050 B=VftL < MID* E* .. I .■ 1 > > 
1100 HE,XT 1 

where: A = digit extracted from A$ 
B = digit extracted from B$ 

is a counter initialized to the length of the INPUT strings (either A$ or B$ 
may be used). With each FOR . . . NEXT loop iteration, the value of I is decre- 
mented by 1 . As I decrements, it allows the string contents to be extracted one by 
one, right to left, using the MID$ function; 

1 MID$(B$.I.1) 

16 \6\i]i\ia\i\i)i57 9 4357 2 

15 bi Izi bi bi bf bi bi bi 5 7 9 4 3 5 7 2 

14 t!Sbib(b(b(b!b(bi57943572 

13 b!blb(b!b(b(b(b(5794 3 5 72 

12 bib(b(b(b!b(b(bi579435 7 2 

11 bib(b(bitzib!b!b(5794357 2 

10 bibib(b(bibiblbi5794357 2 

9 bibfb(b!bfbfb(b(5794357 2 

8 bSbit!Sb(b!bibiB579435 7 2 

7 b!bSb!b(bib(tfb(5794357 2 

6 b!bibibib!4^b(bi57943572 

5 bibib(b!Bbfbib(5794357 2 

4 bibibiabibib(b(57 943572 

3 bibi«bib(bib(bi5794357 2 

2 bi#b(b!bibibibi5 7 943572 
1 ibibibib(bibib!57943572 
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The VAL function converts each extracted string literal into a numeric 



value; 



When 1 = 16, 



When 1 = 15, 



B=VAL(MID$(B$,16,1)) 
B=VAL($| 



B=VAL(MID$(B$,15,1)) 



|7|9KI3|5|7|2| 



After each digit of the nunneric string is converted into a numeric constant, 
the necessary calculations to add them together are performed before the loop 
reiterates. The calculations to arrive at C$ are done in lines 1060 to 1090. 



1000 N=l 

1010 D=0 

1020 FOR I=LEN<fl*;> TO 1 STEP 
1030 f=l=VflL<:Mirt*<fl*. 1.. 1>> 

1040 fl=l=l+lM D=0 

1050 B='v'fiL<:r'1ID*<E*.. I. l.'J) 
1060 C=fl+E 

1070 IF C>=10 THEN ri=l 
1080 IF D=l AND 1=1 THEN H=2 
1 090 C*=R I GHT* < STR* < C > .. N > +C* 
1100 NEXT I 



Initialize string pointer N. 
Initialize carry value. 

Initialize decrement counter I. 

Extract digits separately. Convert 
to non-string numeric. 

Add tens value from carry (D) to A. 

Extract digits separately. Convert 
to non-string numeric. 

Add extracted digits of A$ and B$. 
Carry tens value into D if C> = 10. 



Link sums into string answer. 



Variable D is initialized to zero at line 1010 and used as a carry value in lines 
1040, 1070, and 1080. During addition, if the value of C is greater than or equal to 
ten, a tens value is carried over to the next left position. The tens value carried 
over is stored in D: 



5 7 9 43572 



123 5 1 4 7 32584 
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If C is greater than or equal to 10, the carry variable D is incremented to 1 at 
line 1070; otherwise it remains 0: 



1070 IF i;::>=10 THEN ri=i 

A [Se] 

+B [R9l 
C [ST| ►15>=10 — DgTj 



+B |0] 

C gl] — ►3<10 D[^ (no change) 

D will be either or 1 , but never greater than 1 because the maximum possi- 
ble sum of any two single-digit numbers is 18, thus the maximum tens value that 
can be carried over is 1. 

To prevent losing the carry in D, line 1 040 resets the value of A to A -f- D on 
the next loop iteration: 

1040 fl=fl+ri :ri=0 

If this statement were omitted, the carry would never be carried out, and the value 
of A would be incorrect. When D is added to A, D is reset to in preparation for 
the next loop iteration. 

Step 4: Link the individual sums (C) and convert the total sum into a 
string. Just as the augend and addend were entered as strings to avoid the 9- 
digit length limit, the sums must be converted back into a string to avoid the 
length limit again during printing. This step converts the numbers back to string 
form. 

Line 1090 links the individual sums of C and converts the final answer back 
into string form. 

The STR$(C) function converts C Into a one-digit string. The RIGHTS func- 
tion extracts the rightmost N characters from STR$(C). N is set to 1 at line 1000 to 
indicate that we want only the rightmost character to be extracted; the leftmost 
character of C is unnecessary because it is the sign value if positive and "-" 
if negative) and would be concatenated between each number of C$ if we were 
not to exclude it. 

1000 N=l 

1060 C=fi+E 

C ffl =A@6]+ B@2] 
1 0310 C*=R I GHT* SIR* < C > .. N +C* 

C$=RIGHT$(STR$(C),1)-I-C$ 
C$=RIGHT$(|l8|,1)-hC$ 
C$=i -I- C$ 
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Even if C is a two-digit number, only the rightnnost digit is concatenated onto C$. 
The tens value has already been assigned to D and will be added during the next 
loop iteration. 

N is set to 2 to include the last carry only if D=1 and 1=1 (signaling a carry 
on the last loop iteration). This is innportant, because if both conditions are true 
the loop will NOT iterate again to add D carry into A in line 1040, thereby losing 
the last carry value in D. By setting N to 2 on the last loop iteration, both digits of 
C are included in C$, and the last carry over is not lost 
1070 IF 0=10 THEN 11=1 
C|ll2l>=10 Dgl] 
1080 IF ri=l flND 1 = 1 THEN N=2 

111] N[e2] 
1 090 C*=R I GHT* < STR* < C > .. N > +C* 
C$=RIGHT$(g]TT2],2)+C$ 
C$=[n2l+C$ 
C$= |1|2|X|X|X|X|X|X|X| 

The entire FOR . . . NEXT loop routine at lines 1020 through 1 100 does the 
following: 

1. It extracts individual digits from a numeric string and assigns numeric 
values to them (statements 1030, 1050). 

2. The digits from both strings are added together one digit at a time 
(statement 1060), checked for a carry value (statement 1070), and the 
carry is added to A in the next column (line 1040). 

3. The individual sums are then linked and converted back into a numeric 
string for printing (line 1090). 
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■ Right justify strings 



Step 5: Print the answer string. To complete this addition routine, the 
input and length test commands are inserted at the beginning of the FOR . . . 
NEXT loop (statements 1 to 1 01 0) and a PRINT and CLEAR string command 
is added to the end (statements 1 1 10 to 1 130). The final program now reads 
as follows: 

10 PRINT "r»**l=iriDIT I TON*** PRINT Clear screen 

20 INPUT FI#..E* Input numeric strings 

30 BLf=lNK*=" 

40 X=LENCfi*.-J:V=LEN<E*:J 

50 IF X<V THEN l=l*=LEFT*<ELPlNK*.. V-X.'+fl* 
60 IF V<y. THEN B*=LEFT* < BLANK* ..X-V::'+E* 
1000 N=l 
1010 D=0 

1020 FOR I=LEN<fl*> TO 1 STEP-1 
1 030 Fl= VflL < M I D* t fl* .. 1 . 1 > .) 
1040 fl=Fl+D :D=0 
1 050 E=VFlL M I D* C E* .. 1 . 1 > > 

1060 C=fl+E > Addition loop 

1070 IF 0=10 THEN 11=1 
1080 IF D=l FIND 1 = 1 THEN N=2 
1090 C:*=RIGHT*<STR*<C>. N>+C* 
1100 NEXT I 

1110 PRINT:PRINT"flNSWER= " .: C* Print C$ 

1120 C*="" : PRINT • GOTO 20 Clear C$ 

1130 END 

Two sample runs of the program should give the following output: 
***flDDITION*** 

? 12345 
??573 

filNSWER= 1 2924 

•? 1 234567890 1 23456 
??57943572 

fiNSWER= 1 234567948067028 

This addition routine overcomes the 9-digit numeric length limit. With a few 
alterations and additions, this routine can also be adapted to print out and round 
off to dollars and cents. 
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Method 2: Multiple Integer Addition 

Another way to overcome the 9-digit length limit during addition is to use 
the multiple integer addition method. 

Multiple integer math reorganizes a large number into smaller seg- 
ments. Each segment is handled independently during the addition. The in- 
dividual answers are joined together into one final answer, as demonstrated 
below: 

Input numbers I XXXX j XXXX |-i 
I xxxxixXyX ' I 

rA rA 

High I XXXX l-i XXXX |-i Low 

I XXXX I ' I )im i 

Calcul ation^ ^Calcu lation 
High answer | XXXX 1 XXXX | Low answer 



Answer | XXXXXXXX | 



The steps involved in multiple integer addition are as follows: 

1. Input the augend and addend as two positive numeric strings. 

2. Divide the number into two equal parts of high, low. 

3. Calculate the sums of high-order digits and low-order digits. 

4. Concatenate the sums into one answer string. 

5. Print the answer string. 

Step 1 : Input the augend and addend as two positive numbers in 
numeric string mode: 

10 PRINT"™s**MULTIPLE INTEGER RDDITIOH***" PRINT 
20 INPUT fl*.B* 

RUN 

***MULTIPLE INTEGER flMi I T I ON*** 

•? 1 £345678901 23456 
??5794357£ 

A$ is the augend and B$ is the addend. The numbers are input as numeric strings 
because: 1) the numeric length limit is avoided and 2) it allows use of string 
functions to divide the numbers into small segments. 
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Step 2: You must establish the maximum length of numeric input in 

order to determine into how many segments to divide all numeric input. For in- 
stance, if the maximum length of numeric input is 16 digits, you may divide large 
numbers into two segments with a maximum of eight digits each. Any combina- 
tion is permissible as long as no one segment exceeds a length of nine digits. 

To keep our sample program simple, the maximum input length we will 
allow is 16 digits, to be divided into high and low segments of eight digits each. 



Ixxxxxxxxxxxxxxxx 



i 


|xxxxxxxx| 


|xxxxxxxx| 


8 digits 


8 digits 





For our sample program the divider point variable F is calculated to one-half of the 
larger input length. 

First, determine which input string is longer. The lengths of A$ and B$ are 
assigned to variables X and Y respectively. 

1 000 X=LEN C fl* • V=LEH C > 

Next, the lengths are compared. If X> Y (length of A$ is larger than length of 
i$) then variable F, the divider variable, is set to one-half the length of X. But if X is 
smaller than Y, the program drops through and F is set to one-half the length of Y. 

1002 IF X>V THEN F=X--'2 ^ GOTO 1006 
1004 F=V/2 

In this example, A$="1 2345678901 23456" and B$="57943572"; let's run 
this through: 

1 000 X=LEN < fl* :> : V=LEN (. E* > 

X = 16 Y =8 

1002 IF K>V THEN F=X.-'2 : GOTO 1806 

16>8 true statement, therefore 
F = 1 6/2 
F = 8 

program continues at line 1006 

Once the value of F is set, the program continues at line 1006. Statement 
1006 compares the value of F to the integer value of F. If F is larger than its integer 
val-ue, then F is assigned the value of its integer value plus 1. This is basically a 
method of rounding F up to the nearest integer if F is a fractional number. For ex- 
ample, if the value of F equals 7.5, line 1006 would ensure that F is an integer 
number so that both A$ and B$ may be divided as easily and evenly as possible. 

1006 IF F>INTi;F.:. THEN F=INT<F;> + 1 

If 7.5>7 then F = 7-1-1 
F = 8 
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To obtain the high (H) and low (L) nunneric values for both A$ and B$, use 
the following statements: 

1 000 X=LEN fl* > : V=LEN < E* ? 

1002 IF X>V THEN F=X/2 : GOTO 1006 

1004 F=V/2 

1006 IF F>INT<F> THEN F=INT';F:> + 1 

1008 F*=LEFT*<2ER0*.. F) 

1010 IF X<=F THEN FIH=0 :flL=Vl=lL< 1=1* > GOTO 1040 

1 020 flH=VflL < LEFT* < fl* . X-F > > 

1030 flL=VflL(RIGHT*'Cf=l*.F>> 

1040 IF V<=F THEN BL=VfiL <:E*> ^ GOTO 1070 

1 050 BH=VfilL (LEFT* <B*.. V-F> > 

1060 EL=VI=IL<RIGHT*';E*.F;:'> 

Statements 1010 and 1040 compare the string lengths with the divider point F 
(8). If the string is shorter than eight, AH (or BH) is assigned a zero value, leaving 
only AL (or BL) equal to A$ or B$. If the string is longer than eight it must be 
divided into high and low segments: AH or BH — the high segments — are 
assigned the value of the leftmost LEN(X or Y) minus eight digits at 1020 and 
1050. 

1020 FlH=VflL(:LEFT*<FI*. X-F!) :> 
AH=VAL(LEFT$(A$,16-8)) 

AH=VAL(LEFT$( |1|2|3|4|5|6|7|8|9|0|1|2|3|4|5l6l ',8)) 

AH^VAL( |1|2|3|4l5|6l7l8l ) 

AH Hbil 2345678] 

To obtain AL, the rightmost eight digits are extracted from A$: 
1030 l=lL=VflL<RIGHT*<:fi*.F:>> 

AL=VAL(RIGHT$( [l |2|3|4|5|6|7|8|9|0|1|2|3|4|5|6] .8)) 

AL=VAL( |9|0|1|2|3l4]5l6| ) 

AL= |fa(901 234561 

The same procedure is used to extract BH and BL. Notice that the VAL 
function converts the strings into numbers. 

Step 3: Once the large strings are divided into segments small enough for 
the PET to handle, addition can begin. Multiple integer addition adds correspond- 
ing groups of numbers by adding AH and BH together and AL and BL together. 
Whole groups of digits are added, instead of individual numbers. When a number 
is handled as a group of digits and not as a numeric string, the addition of each 
number does not have to be done digit by digit as with the numeric string 
method. The PET can add numbers, whereas it is unable to add numeric 
strings. 

AH I bil 23456781 AL |lii901 23456| 

+BH llziOOOOOOOOl +BL | Iii57943572| 

CH I 2345678] CL | liil 480670281 
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First, the low segments AL and BL are added using the following program 
statement: 

1070 CL*=STR*<flL+EL> 

iiuTnoer 

CL$ = converted = (numeric sum of AL+BH) 
to string 

The sum of AL and BL is converted into numeric string form when assigned 
to CL$. It isn't necessary that the sum be in string form, but it is much simpler to 
test for carry-over using the LEN function at line 1080. 

Line 1 075 truncates the leading blank from the front of CL$. Remember that 
when a number is converted into a string the leading blank is included. We do not 
want this leading blank as part of CL$ when we concatenate the high and low 
segments together, therefore we truncate it with the MID$ function. 

Line 1080 tests the length of sum CL$ against the segment length F. If the 
length of CL$ is greater than F, the leftmost digit is carried over and added to the 
sum CH$. (The value of D is equal to either or 1.) 

CH$ is obtained by adding AH, BH, and the carry D. Statements 1070 to 
1090 show the process of adding the high and low numbers to obtain CH$+CL$. 

1070 C:Lt=STR*<flL+EL> 

CL$=STR$(| lii901 234561 + |t(57943572| ) 
CL$=STR$( |tii1 48067028] ) 
CL$== MT]4l8|0|6|7|0|2|8| 

1 075 CL* =M I m C CLt- , 2 .■ LEN < CLt > - 1 

CL$=MID$( |b(|l|4i8|0|6|7|0|2|8| ,2,10-1) 

CL$=MID$( |li(11|4|8|0|6|7T0!2l8l ,2.9) 

CL$= |1|4|8|0|6|7|0|2|8| 
1080 IF LEN<CL*:i>F THEN 0=1 

LEN(CL$)=9 ;F=8 
9>8— D=1 

1 090 Cm-^SIRS- (. flH+EH+n > 

CH$=STR$( il 23456781 + IWOOOOOOOI + 0) 

CH$=STR$( |li(1 23466791 ) 

CH$ Hlii|1|2|3|4|5|6|7|9| 
1 0.95 CHa-=M I D* CH* .. 2 .. LEN < CHt- > - 1 .:' 

CH$=MID$( |l;!|1|2|3|4|5i6|7|9| . 2,10-1) 

CH$=MID$( Hii|1 |2|3|4|5|617"]9l .2.9) 

CH$= rir2|3|4|5|6|7|9| 
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Step 4: The last step before printing Is to concatenate the two sums into 
one answer by linking CH$ to the front of CL$. The preceding space and carry D 
are truncated from CL$ by selecting the rightmost eight digits from that string 
(see the previous discussion of Numeric Strings for further explanation of this 
method). 

1 1 00 C*=C:H*+R I GHT* < CL* .. F > 

C$^CH$ [51lT2|3|4|5|6|7|9| + RIGHT$(CL$ [¥ll |4|8IOI6|7|0|2lg ,8) 
C$= |li<|1|2|3|4|5|6|7|9| + 14|8|0|6|7|0|2|8| 
C$= |li(|1|2|3|4|5|6|7|9|4|810|6|7|0l2l8| 
Step 5: Print the answer C$. 
1110 PR I NT : PR I NT " flNSWER= " ; C* ^ PR I NT 

The program Is now complete. In summary, this IVIultiple Integer Addition 
program accepts two positive integer numbers up to 1 6 digits long, divides 
them into high and low segments of eight digits each, and adds the corres- 
ponding high segments and low segments. The two sums are then concate- 
nated into a single string answer with a maximum length of 17 digits. This 
Multiple Integer Addition program allows you eight more digits than the PET's 
built-in maximum, yielding greater accuracy and much more flexibility. 

Below is the listing of the program with a sample run. You may wish to 
amend this program or create your own to allow for decimal or negative numbers. 

10 PR INT" ."»**MULT I PLE I HTEGER ADD I T I ON**.* " ■■ PR I NT 
20 INPUT FI*..E$ Input numeric strings 

1000 X=LEN <: fl* : V=LEN < B* ::• \ 
1002 IF X>V THEN F=X.-'2 : GOTO 1006 / 

1 004 F=V/2 \ Set divider point, F 

1006 IF f>int<:f> then F=im<f>+i \ 
1008 f*=left*':zero*.. f:> / 

1010 IF M<=F THEN FiH=0 ^ FlL=VflL< 1=1*::' ^ GOTO 1040 
1 020 flH= VflL ■:; LEFT* < fl* .. X- F > 

10.30 flL=vflL<:RiGHT*';fi*.. f:>> 

1040 IF V<=F then EL=VflL<E*.> :G0T0 1070 / Separate A$ and B$ 

1 050 EH=VFlL < LEFT* < B* .. V-F > > \ 
1060 EL=VfiL';RIGHT*a:*.. FXJ ) high and lov>/ 

1 070 CL*=STR* ( RL+EL > 

1 075 CL*=M I n* < CL* .. 2 .. LEN < CL* - 1 .■' ) „ , 

10S0 IF LEN0::L*;.>F then ri=l f Addlowstnngs 

1090 CH*=STR*';flH+EH+ri> Add high strings 

1095 CH*=Miri*<.'CH*.. 2.. LEN';CH*>-i:5 > z,^^ w ^ , 

1 1 00 C*=CH*+CL* f ^^"^ '^'^^ 

1110 PR I NT : PR I NT " flNSWER= " .: C* ■ PR I NT Print answer 
1 1 20 flH=0 : flL=0 : EH=0 : EL=0 ' ri=0 ■■ CH*= " " ■ CL*= " " ^ C:*= " " - GOTO 20 
1130 END 
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**#MULTIPLE INTEGER flDBITION*** 

? 1 234567890 1 23456 
757943572 

flNSWER= 1234567948067028 
SUBTRACTION 

As with addition, there are two methods of subtraction. The first 
method uses numeric strings by converting the input strings to numeric con- 
stants, then baci< to strings for printing. The second uses multiple integer 
math. 

Method 1 : Subtraction via Numeric Strings 

This subtraction program contains many sections of the "Addition via 
Numeric Strings" (page 190) program with a few changes. The steps involved are 
as follows: 

1. Input the minuend and subtrahend as two positive numeric strings. 

2. Right justify the strings. 

3. Determine the larger numeric string. 

4. Subtract corresponding digits of the strings separately with borrowed 
carries. 

5. Concatenate the answer into a one-string result. 

6. Eliminate leading zeros in the answer string. 

7. Print the answer string. 

At the end of this section is a complete listing of the sample program to be used 
as demonstration. 

Step 1 : The first step is to input the minuend and subtrahend as two posi- 
tive numeric strings using an INPUT statement: 

Screen Display IVIemory Contents 

10 PR I NT " ***SUETRf=ICT I ON*** " : PR I NT 
20 INPUT fl*.B* 

RUN 

***SUBTRRCT I ON*** 

? 1234567890 12 
??57943572 



A$ l1l2l3|4l5i6|718l9l0ni2| 
B$I5I7I9|4|3I5|7T21 



A$ is the minuend (the first or top number entered, from which another number is 
subtracted). B$ is the subtrahend (the number subtracted from the minuend). 
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Step 2: Align the minuend and subtraiiend by riglit-justifying both 
numeric strings. This process is the same as was presented in step 2 of the "Ad- 
dition via Nunneric Strings" program (page 190). 

30 BLftNK*=" 

40 X=LEN < fi* > ■ V=LEN < E* > 

50 IF X<V THEN fi*=LEFT*<BLftNK*.. V-X>+fl* 
60 IF V<X THEN B*=LEFT* t BLANK* .. X-V>+B* 

Step 3: For subtraction, we must determine which numeric string has a 

larger value. Although the input strings may be equal in length, their values can 
be quite different. For simplicity in our example, the minuend, A$, is assigned the 
larger value, and the subtrahend, B$, is a smaller value. Ideally, the minuend is al- 
ways the larger value, but this cannot be guaranteed. 

The values of A$ and B$ are compared using the VAL function in state- 
ments 65 and 70: 

65 IF 'v'fiL';f=l*::'='v'l=lL(:E*:5 THEN C*="0"-GOTO 1150 
70 IF VflL<fl*:J>VRL<E*:J GOTO 1000 

If A$ is larger than B$, we have a simple subtraction problem, and the program 
drops to line 1000. If B$ is larger than A$, or we are subtracting a larger number 
from a smaller number, the program prepares for a negative answer. 

If the subtrahend is larger than the minuend (B$ is larger than A$), the 
answer will be negative. To subtract two numbers that yield a negative answer, 
program a small routine to switch the contents of A$ and B$ so that the value of 
A$ is larger than B$. Subtract B$ from A$, and the difference is C$. To make C$ 
negative, a negative sign, is concatenated onto the front of 

C$: C$="-"-l-C$. 

Let us subtract 5 from 3, for example. This presents a subtraction problem 
where VAL(B$) >VAL(A$), or the subtrahend is larger than the minuend. 

A$ m 
B$ [i 

Switch A$ and B$ 

A$[5l B$[3] -> A$[5] B$[3] 
Subtract: VAL(A$)-VAL(B$)=C$ 

A$[5] - B$ll] — C$\2} 
Convert to negative 

c$ = ■■-■■ + C$ 

-I- C$ |2] ^ C$ F2] 

Answer: 

C$ EH 
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The variables are switched at line 80. 

30 Xt=fl* ■ fl*=B* : B*=X* 

Program Statement Memory 

X$ A$ B$ 

: 3 5 

X$=A$ 3 3 5 

A$=B$ 3 5 5 

B$=X$ 3 5 3 

X$ acts as a storage string to prevent losing the contents of an entire string. 

Without X$, the original contents of A$ would be written over and the contents of 

B$ would be written back into itself: 

Program Statement Memory 

A$_ B$_ 

: 3 5 

A$=B$ 5 5 Incorrect 

B$=A$ 5 5 

Later in the progrann we will need to know if the variables have been 
switched. We therefore set a marker to signal that A$ and B$ have been switched. 
Use variable S for this: S remains if the variables have not been switched. If the 
variables are switched, set S=1. Later, at line 1140. if S==1 it signals that a nega- 
tive sign must be concatenated to the front of C$. Line 90 sets S=1 if the values of 
A$ and B$ have been switched. 

90 S=l 

Remember that after the strings are properly switched, a value of 1 is 
assigned to S to signal that the numbers have been switched and a negative 
answer is needed. The negative answer is obtained by concatenating a negative 
sign to the front of the answer before it is printed. This occurs at statement 1 140. 
where C$ equals the answer to the problem. 

1140 IF S=l THEN C:*="-"+C* 
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Step 4: Whether the final answer is to be negative or positive, the value of 
A$ is now larger than B$. We can now perform simple subtraction. The subtrac- 
tion subroutine occurs at lines 1000 to 1080. The routine is taken directly from 
lines 1020 to 1100, step 3 of the "Addition via Numeric Strings" program (page 
192), because the digits are extracted from the strings in the same manner. 
However, at line 1050, the carry variable D is now used as a "borrow" variable. If 
(A-B)<0, then a tens digit must be borrowed from the direct left column to in- 
crease the value of A by 10. D is set to -1 because a "1" is being borrowed, 
therefore decreasing the value of the direct left column. Once A is larger than B, B 
is subtracted from A, placing the result in C: 

I me REM**SUETRI=lCTION ROUTINE*.* 

1010 FOR I--^LEN<fl*> TO 1 STEP-1 

1 020 fl= VflL < M I D* < fl* .. 1 . 1 .> 

1030 fl=fl+Il . D--0 

1 040 E= Vf=lL ■;• M I D* E* .. I .. 1 > > 

1050 IF ';fl-E><0 THEN D=-l fl=fl+10 

1060 C=fl-E 

+9 

A 1 2 3 3^ 4^ 5^ 7 8 8^ JT 1 2 
-B 000057943572 
C 123398845440 

Step 5: Concatenate the answer into a one-string result. This function is 
taken directly from line 1090 of the "Addition via Numeric Strings" (page 194) 
program, except that the N is replaced with a 1. Since there will never be a final 
carry as there is in addition, only one digit will be used in every iteration. In our 
subtraction program, concatenation of the individual answers into one result oc- 
curs at line 1070. 

1070 C;*=RIGHT$:<STR*CC>.. 1>+C* 

Step 6: In subtraction, it is possible to pick up leading zeros in the final 
answer. We eliminate these leading zeros before printing the answer. The FOR . . . 
NEXT loop in lines 1090 to 1 120 checlcs and eliminates all leading zeros, using 
the VAL function and variable L as a counter. 

1090 FOR I--=l TO LEN<C*> 

1 1 00 IF VFIL M I n* C C* .. I .. 1 .) > =0 THEN L=-L+ 1 
1110 IF VfilL <: LEFT* C C* .. I .:' <>0 THEN I ^--^LEN -C C* .) 
1120 NEXT I 

The FOR . . . NEXT loop, which iterates from 1 to the length of the answer 
C$, searches for leading zeros or blanks by extracting each digit from C$ and com- 
paring it to zero. It compares digits from left to right. If it identifies a zero or blank, 
counter variable L is incremented by 1 (statement 1 1 00). As soon as the first non- 
zero or non-blank character is encountered, loop counter 1 is set to the length of 
the string so the program may drop out of the loop immediately. 
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Once we have determined the number of leading zeros in the answer, we 
separate the leading zeros from the remainder of the answer C$. At line 1 130, the 
RIGHTS function takes the LEN(C$)-L rightmost digits and stores them in the 
answer variable C$. 



C$ H0|0|1|2|3|5|7| 
I MID$(C$,I,1) 



00 1 2357 
001 2357 
00 12357 



= 
= 
< > 



LEN(C$) =7 



L = 1 
L = 2 

1 =LEN(C$) 

I = 7 drop out of loop 



1 1 30 C*=R I GHT* < C* ,• LEN < C* > -L > 

C$=RIGHT$ ( |0|0|1|2|3|5|7l .7-2) 
C$=RIGHT$ ( |0|0ni2|3|5|7l .5) 
C$= |1l2|3|5|7l 

Step 7: Print the answer string C$. But before we print C$, we check to 
see if the answer is to be negative by testing variable S at line 1 140. If S=1, that 
means that originally A$<B$, and the final answer is to be negative, so a nega- 
tive sign is added to C$. If S=0, the answer is positive, so nothing is added. Line 
1150 prints C$: 

il40 IF S=l THEN C*="-"+C* 

J. 1 50 PR I NT ■ PR I NT " i=lHSWER= " C$ ■ PR I NT 

The last lines, 1 160 through 1 180, clear all strings and variables to zero, or 
to null mode and return the program to the beginning for the next input numbers. 
The total program listing, complete with a RUN, is listed below. 
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1 PR I HT " .'»**SUETRflCT I ON*** " ■ PR I NT 
20 INPUT fl*.. E* 
30 BLflNKt=" 

48 k=leN';fi*:5 : v 

50 IF X<V THEN 
60 IF V<X THEN 
65 IF VflL(:fl*::' = 

IF VflLc:fl*::0-=VflL<B* 
K*=fl* ■ M=B$ ■■ B*=X* 
S=l 

REM**SUETRflCT I ON 

FOR i=leno:fi*:j to 

fl=VflL':.Mirf*(Fl*.. I.. 
fi=Fl+D : ri=0 
B=VHLa'1ID* 
IF ':;ft-B><:0 
C=fl-E 

C*=RIGHT*c: 
NEXT I 

FOR 1 = 1 TO LEN(:C*;j 
IF VflLCMID^'CCt.. I.. 
IF VflL<LEFTf O::*.. I > .'J 
NEXT I 

C*=R I GHT* < C* .. i_EN < CS 



7 k) 
80 

90 S' 

i 000 

.1 1 

i 020 

.1. 030 

1 040 

:L 050 

1 060 

.1 070 
.1 030 
1090 
1 1 00 
1 1 1 

1 120 
1 1 30 
1 140 
1 1 50 

I 1 60 
1 1 65 

I I 7fJ 
1 130 



LEN'::B*.) 

a*=LEFTir t; ELflNK* ., V-X 
E$=LEFT* < BLANK* .. X- V 
flL(:B*> THEN C$="0" ■ 
GOTO 1000 



ROUTINE** 
1 STEP-1 



::e*.. I.. 

THEN 
STR^fX 



i;:o 

D=- 



1 fl=H+ 1 



1 >+C* 



.=k.i 

:>0 



THEN 
THEN 



Clear screen 
Input numeric strings 

Right justify strings (from 
/ 'ines 20-60 of the addition 

•'-t-B*! P''°9''^'^* 
HOTO 1 1 50 

If A$<B$, switch strings 



Subtraction loop (based on 
. lines 1020-1 100 of the addition 
program) 



L+j^ I Truncate leading zeros 



L 

I=LEN( 



IF 3=1 THEN 
PR I NT: PR I NT' 
C-$=" " fl*=" " ■ 
Fi=0 : B=0 C=0 
GOTO20 
END 



flNSWER=",:Ct: PRINT 

B*= " " " " 

D=0 3=0 ' X=0 : V=0 ; 



and blanks 



Print answer 
j- Clear strings and variables 



***SUETRflC:T I ON*** 

? 1234567890 12 
??5?943572 

filNSWER= 12333S845440 
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Method 2: Multiple Integer Subtraction 

The alternative method to numeric string subtraction is multiple integer 
subtraction. Recall from the previous discussion of multiple integer addition that 
the multiple integer method divides a large number into smaller segments, calcu- 
lates the segments separately, and joins the answers into one string. This method 
evades the 9-digit length limit. 

The total process of multiple integer subtraction is as follows: 

1. Input the minuend and subtrahend as two positive numeric strings. 

2. Determine which string has the larger value. 

3. Divide the numbers into parts: high. low. 

4. Calculate the difference of low- and high-order digits. 

5. Concatenate the differences into a one-string answer. 

6. Truncate leading zeros. 

7. Print the answer string. 

At the end of the subtraction section is the sample program used to demonstrate 
multiple integer subtraction. 

Step 1 : Input the minuend and the subtrahend as two positive numeric 
strings: 

10 PRINT"::»**MLILTIPLE INTEGER SUBTRACTION***" ^ PRINT 
20 INPUT Pl*.E* 



RUN 

**#MULTIPLE INTEGER SUBTRACT I ON*** 

? 1234567890 12 
??57943572 

A$, the minuend, and B$, the subtrahend, are entered as strings to avoid the 
9-digit length limit. 

Like multiple integer addition. A$ and B$ are divided into smaller segments. 
The maximum input length is arbitrarily set at 1 6 digits, so that we can divide the 
largest possible string into equal segments of eight digits each. 

Step 2: Determine which input string has the larger value. If A$ is equal 
to B$ then the program drops down to line 1 190 to print a zero answer. If B$ is 
larger than A$ the difference is negative and extra steps are needed. 

If the answer is to be negative, the contents of the two strings are switched 
to put the larger value in A$ and the smaller value in B$. They are then subtracted, 
and a negative sign ("-") is concatenated onto the front of the difference (C$) as 
was demonstrated in line 70 of "Numeric String Subtraction" (page 204). Line 30 
is used here to direct the program past the switching routine if switching is not 
needed. 

30 IF VflL<:fl*.>>VFlL<E*> THEN 1000 
40 X-4-=fl* ■■ fl*=E* : E*=X* 
50 3=1 
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If the value of B$ is larger than the value of A$, the contents of A$ and B$ 
are switched at lines 40 to 50 before B$ is subtracted from A$, to ensure that the 
smaller number is subtracted from the larger one. A marker is set to indicate that 
the variables have been switched. 

For a detailed explanation of this routine, refer to step 3 of "Numeric String 
Subtraction" (page 203). 

Step 3: Divide A$ and B$ into two smaller segments, high and low. 

1000 X=LEN<fl*> : v=lenc:e*> 

1002 IF X>V THEN F=X.''2 GOTO 1006 

1004 F=V/2 

1006 IF F>INT<F> THEN F=IHT';F> + 1 

1010 IF X<=F THEN flH=0:FIL=VflL<fl*> -GOTO 1040 

1020 flH=VfiL<:LEFT*<fi*..X-F:).> 

1030 flL=VfiL<RIGHT*';fl*.F>> 

1040 IF V<=F THEN BH=0 • EL=VflL CB*.-) : GOTO 1070 
1050 BH=VfiL<LEFT*<B*. V-F.J.^ 
1060 BL=VflL<RIGHT*<B*..F>> 

Statements 1010 and 1040 compare the string lengths with the divider 
point F. F is determined at lines 1002 and 1006. These lines are identical to lines 
1 002 and 1 006 of the "Multiple Integer Addition" program (page 1 98). If the string 
is shorter than F, AH (or BH) is assigned a zero value, leaving AL (or BL) with the 
entire string as its value. If the string is longer than F it must be divided into high 
and low segments. AH is assigned the leftmost LEN(AH) minus F digits. 

A$ |l|2|3|4|5|6|7|8|9|0|l[2l 
B$ I5|7|9|4|3|5|7|2l 

AH |b(123456 [ AL |bi789012| 

BH|^¥SS657] BL|g943572] 

Lines 1000 through 1060 are also similar to lines 1000 through 1060 of the 
"Multiple Integer Addition" program, which divides A$ and B$ into AH, AL, BH, 
and BL. Refer to step 2 of "Multiple Integer Addition" (page 199) for review and 
further explanation. 

Step 4: Calculate the differences for the high-order and low-order seg- 
ments. BL is subtracted from AL, and BH is subtracted from AH: 

AH[|T23456] AL |ii(789012| 
~BH \WiHHi57\ -BL |li(943572 ] 

Before the segments are subtracted, the minuend and subtrahend must 
be compared. If the value of BL is larger than AL the difference is negative. 

This creates problems because a negative CL cannot be concatenated onto CH: 

CH |1^xxxxxx| CL |-xxxxxx] = C [^xxxxxx-xxxxxx| Incorrect 
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Therefore we must borrow from AH to increase the value of AL so that the 
difference will be positive. Lines 1070 to 1090 borrow from AH and increase AL 
before BL is subtracted from AL; 

1070 IF f=lL>=EL THEN 1100 
1080 flL=flL+10tF 
1090 flH=flH-l 

If AL is larger than BL we bypass 1080 and 1090 and jump directly to the 
subtraction. But if BL is larger than AL we must borrow a one million value from 
AH to increase the value of AL: 

-1 +1000000 

AH |xxxxx|x| Al l jxxxxxxl 

-BH jxxxxxxl -BL |xxxxxx| 

CH Ixxxxxxl CL Ixxxxxxj 

A ten is added to the leftmost digit of AL. The easiest way to add the ten in 
the correct position is to raise 10 to the Fth power. 

AL=AL+10TF 

In our sample program, AL is smaller than BL, as tested in line 1070. 

AL| lii789012| <BL |lzi943572| 
Therefore we must borrow 1000000 (10tF=10t 6 = 1000000) from AH to 
increase the value of AL: 

10S0 flL=f=lL+10 tF 

AL=AL+10t6 
AL=AL+ 1000000 
AL= |789012| + 1000000 
AL= 1 178901 2 ] 

After AL is increased, AH must be decremented by 1, since we borrowed 
from it. 

1090 f=IH=flH-l 

AH^ Itiil 23456] -Fl 
AH= ll;i1 234551 

Once AH, AL, BH, and BL have been set up properly, the subtraction of the 
segments takes place. CL$ is the difference between AL and BL, and CH$ is the 
difference between AH and BH. 

Lines 1100 through 1102 determine CL$. Line 1000 changes the integer 

value of AL-BL into string form. 

lies CL*=STR*< int<fil-el::' 

CL$=STR$(l!i1 78901 2-l!!943572) 

CL$=STR$(tzi845340) 

CL$=l!S345540 
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Then, using the MID$ function at line 1 101, the leftmost character (a blank repre- 
senting a positive sign value) is truncated: 

1101 CL*=M I D* < CL* .. 2 .. LEN C CL* j - 1 > 
CL$=MID$( |li(|8|4|6|4|4|0| 2.6) 

CL$= |8|4|5i4|4|0| 

At 1 102, if the length of CL$ is shorter than F, zeros fronri ZEROS are con- 
catenated onto the front of CL$. You will need to add an assignnnent statenaent 
for a string of Os for variable ZERO$; we have done so at line 1 5. In this case, the 
length of CL$ is equal to F, therefore no leading zeros are needed. 

1 5 ZERO*= " 0000000£10£1000800 " 

1 1 02 CLf=LEFT*';ZERO*.. F-LEH';CL*> >+CL-f 
CL$=LEFT$ (ZERO$.6-6)+CL$ 

CL$=LEFT$ (ZERO$,0)-I-CL$ 

Then, at line 1110, CH$ is assigned the string integer value of AH-BH: 
.1 1 .1 CH*=3TR* < I HT < hH-EH .:■ > 
CH$=STR$(b(123455-l!(57) 
CH$=STR$(lzS1 23398) 
CH$= ||i<|1|2|3|3|9|5| 

Then, using the MID$ function, the leftmost blank character is truncated off: 

1111 C:H*=r'1 1 n* < CHt- .. 2 .. LEH < CHt- > - 1 > 
CH$=MID$( |bi|l|2|3|3|9|8| ,2.6) 
CH$= |1|2|3|3|9|8| 
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The subtraction routine lool<s lil<e this: 

ie70 IF flL>=EL GOTO 110© 

78901 2 > =943572 ► False statement 

Program continues at next line 

1080 l=lL=fiL+10tf 

AL=7890 12+ 1000000 

AL=1789012 
1090 flH=flH-l 

AH=123456-1 

AHIzfl 23455 

1 1 00 CL*:=STR* < I NT < fiL-BL > > 
CL$=STR$((i(1 78901 2-6(943572) 
CL$=STR$(lii845540) 
CL$ H8|4|5l5|4|0j 

1101 CL*=Miri* o:.L* .. 2.. LEHCCLt > 
CL$=MID$( |b(|8|4|5|5|4l0| . 2,7-1) 
CL$=MID$( Hiii8|4|5|5i4"|0| ,2.6) 
CL$= l8l4l5l5l4l0| 

1 102 CL*=LEFT*<ZERO*.. F-LEN<:CL*> >+CL* 
CL$=LEFT$(ZERO$,6-6)+CL$ 
CL$=LEFT$(ZERO$.0)+ |8|4|5l5|4|0l 
CL$= |8r4|5l5|4|0| 

1110 CH* =STR* I NT FIH-EH > 
CH$=STR$(b(123455-b(57) 
CH$=STR${li(1 23398) 
CH$= rti!|1|2|3|3|9|8| 

1 1 1 1 CHt=M I < CH* .. 2 .. LEN < CH* > - 1 > 
CH$=MID$( |b(|1|2|3|3|9|8l , 2,7-1) 
CH$=MID$( |li(|1|2|3|3|9|8| ,2,6) 
CH$=| 1|2|3|3|9|8l 
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Step 5: Concatenate the answer strings, CH$ and CL$. together by 
numeric string concatenation. They are concatenated in statement 1120: 

1 1 20 C:|:=CH*+C;Lt 

C$=CH$ | 1 + CL$ | I 

c$= r I 

Only the rightmost "F" numbers from CL$ are concatenated to CH$ to avoid 
concatenating any leading blanks in CL$ (see the earlier "Numeric Strings" sec- 
tion for further discussion). 

Step 6: Truncate leading zeros in C$ before C$ is printed. Leading zeros 
are subtracted in the same way for Multiple Integer Subtraction as for Numeric 
String Subtraction (see step 5, "Numeric String Subtraction," page 205). Lines 
1 130 through 1 170 truncate leading zeros just prior to printing C$; 

.1130 FOR 1 = 1 TO LEN';C*> 

1140 IF vftLimm- ■ I.. i>:>=e then l=l+i 

1150 IF VflL < LEFT* C C* . I > > <>0 THEN I =LEN C C* :> 
1160 NEXT I 

1 1 70 C*=R I GHT* c: Ct .. LEN < C* > -L > 
1180 IF S=l THEN €■$■=" -"+C$- 

If A$ and B$ had been switched, S would have been set to 1, signaling a negative 
answer, and thus a negative sign would be concatenated to the front of C$ at 
1180. 

Step 7: Print the answer and clear out variable strings before allowing 
another problem to be input. 

1 1 90 PR INT: PR I HT " FINSWER= " . Cf- ■ PR I NT 

1 200 fl*= " " ■ E*= " " : Ct= " " : CH* = " " ■ CL*= " " 

1 205 flH=0 : flL=@ ■ BH=0 : EL=0 F=0 : S=0 : K=0 ■ V=0 

1210 GOTO 20 

1220 END 
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The finished program appears as follows; 

i PR I NT " r»**MULT I PLE I HTEGER SUETRflCT I ON*** " ■ PR I NT 

1 5 2ER0*= " 0000000000000000 " 

20 INPUT fl*.. B* 

25 IF VflL'::FI*::'=VflL<B*;' THEN C*="0" ^ eOTO 1190 
30 IF VflL(:fl*::'>VflL<Et> GOTO 1000 
40 Xt=Flt : fl*=B* : B#=X* 
50 S=l 

1 000 X=LEN (. M- > V=LEN < B* > 

1002 IF X>V THEN F=X/2 ■ GOTO 1006 

1004 F=V/2 

1006 IF F>INT';F> THEN f=intcf:5 + i 

1010 IF X<=F THEN f=lH=0:flL=VflL<fl*;' :GOTO 1040 

1020 flH='v'flL<LEFT*<Fl*.. X-F!? 

1 030 fiL=VflL <: R I GHT* < R* .. F > > 

1040 IF V<=F THEN E=0 ^ BL=VflL < E$> ^ GOTO 1070 
1050 BH= VflL C LEFT* < B* .. V-F :> > 

1 060 EL=vflL <: R I em-s- < Bt- . f > > 

1070 IF flL>=EL GOTO 1100 
1080 RL=f=IL+10-TF 
1090 FlH=flH-l 

1100 CL*=STR* < I NT HL-BL > 

1101 CL*=M I m- < CLt- .. 2 .■ LEN < CL* > - 1 > 

1 102 CL*=LEFT* <ZEROt.. F-LEN<CL*> >+CL* 

1110 CH*=STR* <; I NT C FlH-BH > ::' 

1 1 1 1 CH*=M I < CH* .. 2 . LEN C CH* > - 1 > 
1120 C*=CH*+CL* 

1130 FOR 1=1 TO LEN<C$> 

1 1 40 IF VFIL <; M I D* < C-t- ,1,1 > > =0 THEN L=L+ 1 
1150 IF VOL LEFT^: C C* .. I > <>0 THEN I =LEH C* > 
1160 NEXT I 

1 1 70 C*=R I GHT* < C* .. LEN C C* -L > 

1130 IF 3=1 THEN C*="-"+C* 

1190 PRINT:PRINT"flNSl.JER= ".:C3^: PRINT 

1 200 m= " " - B*= " " ■■ €■■$■= " " • CH*= " " - CL*= " " 

1 205 I=IH=0 : hlL=0 •■ EH=0 ■ EL=0 ■■ F=0 ■ 3=0 ■ X=0 ■ V=0 

1210 GOTO 20 

1220 END 

***MULT1PLE INTEGER SUETRflCTION*** 

? 1234567890 12 
??57943572 

flNSWER= 12339S845440 

? 1 2345678901 23456 
??57943572 

flNSWER= 1234567S32 179884 

79999999999999999 
?? 1234567890 

flNSWER= 9999998765432109 
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You now know two methods of subtraction. The first method used numeric 
strings. The second uses multiple integer math. By comparing their outputs, you 
can see that both methods work equally well at getting around the 9-digit length 
limit. You, the programmer, may now choose the method which most specifically 
meets your needs. 

MULTIPLICATION 

The PET's 9-digit length limit may be easily exceeded because a product 
may be very large even when the multiplier and multiplicand are small. This 
numeric length limit prohibits products longer than nine digits from being printed 
without exponential notation. You can get around this limitation by writing a pro- 
gram that print products larger than nine digits of precision. Printing products ex- 
ceeding nine digits without exponential notation is most easily done using multi- 
ple integer multiplication. The following program and discussion will enable 
you to print out products up to 16 digits in length without exponential nota- 
tion. 

Multiple Integer Multiplication 

Using virtually the same steps as multiple integer addition and subtraction, 
multiple integer multiplication separates the multiplicand and multiplier into 
smaller segments, multiplies all segments, and adds the multiple products 
together into one final product, ranging from 1 to 16 digits in length. 

The steps for multiple integer multiplication are as follows: 

1. Input the multiplicand and the multiplier as two positive numeric 
strings. 

2. Divide the strings into segments: high and low. 

3. Multiply the corresponding segments. 

4. Add the segment products to create one product string. Truncate any 
leading zeros. 

5. Print the product string. 

The listing of the sample program is shown at the end of this section. 

Step 1 : Input the multiplicand and the multiplier as two positive 
numeric strings, where A$ is the multiplicand and B$ is the multiplier. As with 
the other math programs, the numbers are input as strings to avoid the 9-digit 
length limit. However, the input numbers are limited somewhat by the program 
supplied here. 

This program limits the length of the product to 16 digits. Since the 
maximum product length equals the sum of the lengths of the multiplicand 
and multiplier, the sum of the lengths of the input numbers cannot exceed 

16. To change the program to accept larger numbers requires several alterations 
in the program which will not be discussed, but which you should be able to do 
yourself. 
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(length of A$)+(length of B$)<16 
Examples: 12 + 4 <16 
2+3 <16 
8+8 <16 

The example program will multiply two input numbers with equal lengths of 
eight digits: 99999999 and 99999999, to give us a 16-digit product. 

99999999^ 8 digits 

x99999999^ + 8 digits 

9999999800000001^ 16 digits 

Input the multiplier and multiplicand as two positive numeric strings, A$ 
and B$: 

10 PRINT "r»**MULTIPLE INTEGER MULTIPLICATION***" : PRINT 
20 INPUT f=l*.B* 

RUN 

***MULTIPLE INTEGER MULTIPLICATION*** 

799999999 
7799999999 

Step 2: Separate both input strings into two segments:high (M) for the 

leftmost digits and low (L) for the rightmost digits. The dividing point, variable F, 
tells the PET where to divide A$ and B$ into segments. The value of F is set at 
lines 1002 and 1006 (for explanation refer to "Multiple Integer Addition," page 

198) . 

i 000 X=LEN <m> - V=LEN < B* > 

X=8 Y=8 

1002 IF X>V THEN F=X/2 : GOTO 1008 
1004 F=V/2 

F=8/2 
F=4 

1006 IF f>int<;f:)THEN f=int<f>+i 

Once F is set, the program divides the numbers into high and low segments. 
This routine was presented in the "Multiple Integer Addition" program (see page 

199) . Lines 1010 through 1060 divide the two strings into high and low seg- 
ments. 

1010 IF X<=F THEN flH=0:flL=VflL<:fl*> :GOTO 1040 
1020 flH=VfilL<LEFT*<fl*.X-F>> 
1030 flL=VFIL<RIGHT*<:fi«.F:)> 

1040 IF V<=F THEN BH=0 : EL=VFlL<E*> : GOTO 1070 
1050 BH=VflLtLEFT*<B*. V-F:0 
1060 BL=VflL<RIGHT*<B*.F.')> 
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The routine above divides A$ into AH and AL (4 digits) and B$ into BH and 
BL (4 digits): 

A$ |9|9|9|9|9|9f9l9] B$ |9|9|9|9|9|9|9|9| 

/ \ 



AH |9|9|9|9| AL |9|9|9|9| BH |9|9|9|9| BL |9|9|9|9| 

Step 3: Multiply AH, AL, BH, and BL into four product strings: P1$, 
P2$, P3$, and P4$. The rules of algebraic multiplication multiply each variable as 
if it were a single number. A$ and B$ are multiplied as follows: 

M [AL] 

xfBHl IbD 



Think of A$ and B$ as two sets of 4-digit numbers (H and L) joined in the middle, 
and not as eight individual digits: A$ is not eight 9s, but two sets of four 9s each. 
Thus AL and BL are multiplied as: 

AL |9999| 



X BL 1 99991 

Multiplying A$ and B$ is a four-step process. To begin, multiply BL x AL: 

|ah1 [alL 

[bhI [blK 

and then BL x AH: 

IaihI [al] 

fIR]|BLl 

Next, move over to BH and multiply BH by AL: 

lAin] |al] 
\bh\W\ 

and finally BH x AH: 

JahI [AL] 
NBIH] [BL] 

When the PET multiplies BL x AL, etc., it internally multiplies the values of 
BL and AL. Consequently, the 4-digit values of BL and AL are multiplied together, 
producing the 8-digit product PI. Below is the four-step process: 



[AH] [AO-*, ^^^^^ mJK\(^\Ml ED 

x [BFn rBL]^x[BH] IBL] x[BHr [BL] >?[BH] \BL\ 



P1$ I I P1$ I I P1$ 1 I P1$ 

[ P2$ [ [ P2$ I I P2$ 

I P3$ [ I P3$ 

[ P4$ 
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Let's look step by step at how the multiplication works, using the values of 
AH. AL, BH, and BL from our example: 

AH \m999\ AL [69999] 

BH BL |li(9999| 

The first multiplication is BL x AL; 

[ah] |b(9999| ^ 
X IHl [^9999] ^ 

89991 
89991 
89991 
89991 
99980001 

The second multiplication is BL x AH, as shown in the diagram below: 

AH [9999]^^ rATI 
X I BH I BL i"9999l 

99980001 
999800010000 

Notice that P2 is not directly beneath PI, but four spaces to the left (recall 
the rules for lining up the products of 2-digit multiplication problems). To con- 
tinue in the same manner, the third multiplication should be as follows; 

rAHl AL [99991 
Bh [9999| |~Bn 
999800010000 

The fourth and final multiplication should be as follows: 

AH |9999| >. I AL | 
BH [99991 -^ I BL I 
9998000100000000 

Remember that only the values of the four segments are multiplied; 
this means that the actual multiplication done by AL x BH, etc. yields the 
same number, 99980001, for all four products. So, in the program the pro- 
ducts are aligned by converting the products into strings and concatenating 
the necessary number of zeros onto the end of the strings to align them pro- 
perly. This occurs in statements 1070 through 1100. 

1070 Pl*=STR*<BL#filL> 
1080 P2*=STR*<BL#ftH)+F* 
1090 P3*=STR*<BH*flL)+F* 
1 1 00 P4*=STR* < BH#flH > +F*+F* 
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Without the zeros to hold the positions, the answers would be aligned incorrectly 
as: 

PI 199980001 1 

P2 1 99980001 1 Incorrect 

P3 [99980001 1 

P4, 1 99980001 1 



instead of; 



1999800011 



199980001 0000 



|99980001| 0000 Correct 



99980001 00000000 



The nunnber of zeros to be concatenated onto the end of the product strings 
is assigned to F$. The constant variable "F" is set to the dividing nunnber, in this 
example F = 4. F$ is assigned the leftmost "F" zeros in ZERO$. 



40 ZERO*= " 0000000000000000 " 

100S F*=LEFT*<ZERO*.F> 

F$=LEFT$(ZER0$,4) 

F$= 

F$="0000" 



When P1$, P2$, P3$, and P4$ are calculated (lines 1070 through 1 100), the cor- 
rect number of zeros are simultaneously concatenated to the end of the string to 
align the products correctly. The products are now aligned and ready to be added: 

AH |lzi|9|9|9|9| AL Hi;|9|9|9|9| 
X BH |li(|9|9|9|9| BL |li(|9|9|9|9| 
1999800011 PI 
1999800010000] P2 
1999800010000] P3 
19998000 lOOOOOOOOl P4 
F$ F$ 
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At the end of step 3, the program looks like this; 
20. INPUT fl*.B* 

30 IF VflL<fl*)=0 OR VflL<E*>=0 THEN 

C*="0" :GOTO 1190 
40 ZERO^=" 0000000000000000" 
1 000 X=LEN V=LEN < B* ) 

1002 IF X>V THEN F=X/2 GOTO 100S 
1004 F=VV2 

1006 IF F>INT<F>THEN F=INT<:F>+1 
1008 F*=LEFT*<:2ER0*.F> 

1010 IF X<=F THEN flH=0 flL=VJ=1L<f=l*> : GOTO 1040 
1020 fiH=VflL<:LEFT*<fl*.X-F>> 
1030 ftL=VflL<RIGHT*<fl*..F>> 

1040 IF V<=F THEN BH=0:BL=VHL<B*> ^ GOTO 1070 
1050 BH=VflL<LEFT*<B*.V-F>> 
1060 BL=VftL<RIGHT*<B*.F>:> 
1070 Pl*=STR*<BL*flL> 
1080 P2*=STR*<BL*flH>+F* 
1090 P3*=STR*<BH*flL>+F* 
1 1 00 P4*=STR* < BH#fiH ) +F*+F* 



Input values for A$, B$ 
If multiplicand or 
' multiplier = then 
answer (C$) = 

Set divider point, F 



Divide A$ and B$ 
into parts: 
high and low/ 



Multiply A$ and B$ 
and align products 



Step 4: Add the four products together. This is the most complicated part 

of the "Multiple Integer Multiplication" program because parameters are passed 

back and forth from the main program to an addition subroutine. We will use a 

portion of the "Addition via Numeric Strings" program as a subroutine to add the 

products together (page 1 90). Below is the portion of the addition program we will 

convert into a subroutine: 

2000 REM**PiriII PRODUCTS** 

2010 ELflNK*=" 

2020 X=LEN<Pl*> : V=LEN<B*> 

2030 IF X<V THEN Fl*=LEFT*< BLANK*. V-X>+fl* 

2040 IF X>V THEN E*=LEFT*<BLflNK* .. K-V.)+B* 

2050 D=0:N=1 :C*="" 

2060 FOR I=LENCfl*> TO 1 STEP-1 

2070 fl=VflL < M I D* < fl* . I .. 1 > ;> 

2080 0=0+0 0=0 

2090 B=VflL<MID*<B*. I.l>) 

2100 C=fl+B 

2110 IF C>=10 THEN D=l 
2120 IF D=l AND 1=1 THEN N=2 
2130 C.*=RIGHT*<STR*i;C.'>.N>+C* 
2140 NEXT I 

At line 1 1 10 the contents of PI $ and P2$ are passed to the parameters A$ 
and B$, which are used in the addition subroutine (lines 2000 to 2140). 

1110 fi*=Pl*:B*=P2* 

A$ |9|9|9|8|0|0|0|l1 

B$ I9l9l9l8l0l0|0|1|0|0i010| 
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(Notice that the contents of A$ and B$ are not the sanne as those input at line 20. 
The same variable names are used to allow program compatibility between all 
four math programs.) Only two parameters are passed at a time because the addi- 
tion subroutine adds only two numbers at a time. After P1$ and P2$ are added, 
the addition subroutine will be called again to add the contents of P3$ and P4$. 

Within the subroutine, the variable C will be assigned the sum of A$ + B$ 
and converted into C$. 

Once the values for P1$ and P2$ are passed to A$ and B$ the addition 
subroutine is called: 

1 1 20 GOSUB £000 

A$ and B$ are right-justified and equated in length for addition by adding blanks 
from BLANKS to the shorter string (if there is one) in lines 2010-2040: 

2010 BLflNK*=" 

2020 X=LEN<fl*> : V=LEN<E*> 

2030 IF X<V THEN fi*=LEFT*<BLflHK*. V-X>+fl* 
2040 IF K>V THEN B*=LEFT* < BLANK* .. X-V.>+B* 

Statements 2050 to 2140 add the corresponding digits of A$ and B$ and 
convert the sum C into the numeric string C$. (A full explanation of this process is 
offered in the "Addition via Numeric Strings" section, page 191.) 

2050 D=0N=1 C*="" 

2060 FOR I==LEN<fl*) TO 1 STEP-1 

2070 fl=VflL<MID*<fi*. I. 1)> 

2080 fl=fi+D:D=0 

2090 B=VflL<MlD*<B*. I.l>> 

2100 C=fl+B 

2110 IF C>=10 THEN D=l 
2120 IF D=l RND 1=1 THEN N=2 
2130 C*=RIGHT*<STR*«:C>.N>+C* 
2140 NEXT I 

The sum, C$, is passed through a FOR . . . NEXT loop to truncate any leading 
blanks or zeros at lines 3000 to 3060. This truncation routine is from "Subtraction 
via Numeric Strings" (page 205). 

3000 REM***TRUNCfiTE LEfiH ZEROS*** 

3001 L=0 

3010 FOR 1=1 TO LEN<C*> 

3020 IF VflL<MID*<C*/ I. 1>>=0 THEN L=L+1 
3030 IF VfiL<LEFT*<C*, I>>O0 THEN I=LEN<C*> 
3040 NEXT I 

3050 C*=RIGHT*<C*.LEN<C*.^-L> 
3060 RETURN 

C$, the sum of P1$ and P2$, is returned to the main program and converted 
to M1$: 

1130 M1*=C* 

The contents of C$ must be transferred to M1$ because C$ must be cleared 
before the addition subroutine is called again at line 1150 to add P3$ and P4$. 
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To add P3$ and P4$ together, the values of P3$ and P4$ are passed to the 
parameters A$ and B$ before calling the addition subroutine 2000; 

1132 FI*=P3* : B*=P4* : GOSUB £600 
A$ |9|9|9|8|0|0|0|0|0|0|0|0| 
B$ I9l9l9|8|0|0|0h|0l0i0|0|0|0|0|0| 

The addition subroutine adds the corresponding digits of P3$ and P4$, truncates 
any leading zeros, and returns sum C$ to the main program, where C$ is con- 
verted to M2$: 

1135 M2*=C* 

At this point, M1$ is the sum of P1$ and P2$, and M2$ is the sum of P3$ 
and P4$. To get the sum of all four products, M1$ and M2$ must be added 
together: 

[AHl [AL| 



+ 1 P2$ 



+ 1 P3$ 
+ 1 P4$ 



|mT$] 

+ fM2$] 



rcn 



The addition subroutine is called a third time to add M1$ and M2$ together 
to get the final answer, C$. 

1140 fl*=Ml*:B*=M2* 

A$ l9l9l9|8|9|9|9|9|0T0l0ni 
B$ |9|9|9|8|9|9|9|9|0|0|0|H0|0|0|0| 

1150 GOSUB 2000 
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Step 5: After the third return from the addition subroutine, C$ equals the 
sum of all four products. Step 5 prints the answer. Then return to the input state- 
ment to solve another multiplication problem. 

1X90 PR I NT : PR I NT " flNSWER= " i C* ■ PR I NT ■■ GOTO 29 
1200 END 

The flow of the program looks like this: 

10 PRINT" *** MULTIPLE INTEGER MULTIPLICATION***" 
I 20 , 

Step 1 < 30 Input multiplier and multiplicand, 
initialize variables 

50 

'1000 
1010 

Step 2 / 1030 Calculate F, divide the multiplier, multiplicand 
1 040 ^"'^ segments 

1050 
J060 

!1070 
1 080 Multiply segments into four products 
1 090 into f ou r products P 1 $; P2$: P3$: P4$ 
1100 

1110 Pass P 1 $ + P2$ to parameters A$, B$ 

1120 GOSUB2000 ► 2000-2140 addition subroutine; 

add P1$ + P2$ — C$ 
3000-3060 truncate leading zeros 



1 1 30 Pass contents of C$ ■— IVI1$ 

1 140 Pass P3$ + P4$ to parameters A$, B$ 

1150 GOSUB 2000 ► 2000-2140 addition subroutine: 

Step4'<r add P3$ -t- P4$ — C$ 



3000-3060 truncate leading zeros 

1 1 60 Pass contents of C$ -*M2$ 

1 170 Pass M1$ + M2$ to parameters A$, 8$ 

1 180 GOSUB 2000 — 2000-2140 addition subroutine; 

add M1$ + M2$--C$ 
-* 3000-3060 truncate leading zeros: 

90 Prints*C$ 



/l190 Pi 
btep t> ^ 1200 END 
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Following is the listing and sample run of the program; 

10 PRINT":5tf*#MULTIPLE INTEGER MULTIPLICATION***" = PRINT 
20 INPUT FI*.B* 

30 IF VftL<fl*)-0 OR VflL<B*>«0 THEN C*="0":GOTO 1130 

40 ZEROt=" 0000000000000000" 

1 000 X=LEN < fl* > : V=LEN < B* > 

1002 IF X>V THEN F=X/2 : GOTO 1008 

1004 F=V/2 

1006 IF F>INT<F>THEN F=INT<F>+1 
1008 F*=LEFT*<ZERO*.F> 

1010 IF X<=F THEN fiH=0 : flL=VFIL<FI*> = GOTO 1040 
1020 flH=VFlL<LEFT*<fl*.X-F>> 
1030 fiL=VflL<RIGHT*'CFl*.F>) 

1040 IF V<=F THEN BH=0 : BL=VI=lL<B*> GOTO 1070 

1 050 BH= VFlL < LEFT* < B* . V-F > > 

1060 BL=VfiL<RIGHT*<B*.F)> 

1070 Pl*=STR*<BL#fiL> 

1080 P2*=STR*<EL*flH>+F* 

1090 P3*=STR*<BH#flL.')+F* 

1 1 00 P4*=STR* < BH*flH ) +F*+F* 

1110 fl*=Pl*:B*=P2* 

1120 GOSUB 2000 

1130 M1*=C* 

1132 fl*=P3* : B*=P4* : GOSUB 2000 

1135 M2*=C* 

1140 R*=M1*:B*=M2* 

1150 GOSUB 2000 

1190 PRINT:pRINT"flNSWER=";C*:PRINT-GOTO 20 
1200 END 

2000 REM**flDB PRODUCTS** 

2010 ELRNK*=" 

2020 X=LEN < fi* > : V=LEN < B* > 

2030 IF X<V THEN fl*=LEFT*CBLfiHK*. V-X>+fl* 

2040 IF X>V THEN E*=LEFT*<:ELfiNK*.. X-V>+B* 

2050 D=0:N=1 :C*="" 

2060 FOR I=LEN<fl*> TO 1 STEP-1 

2070 R= VflL < M I D* < fl* . I .■ 1 > > 

2080 fl=H+D D=0 

2090 E=VFlL C M I D* < B* .. 1 . 1 > > 

2100 C=fl+B 

2110 IF 0=10 THEN D=l 
2120 IF D=l FIND 1 = 1 THEN H=2 
2130 C*=RIGHT*(:STR*<:c:>.N>+C* 
2140 NEXT I 

3000 REM***TRUNCf=lTE LEAD ZEROS*** 

3001 L=0 

3010 FOR 1 = 1 TO LEN<C*:> 

3020 IF VflL<MID*<C*. I. 1>)=0 THEN L=L+1 
3030 IF VflL<LEFT*'>C*. I>>O0 THEN I=LEN<C*> 
3040 NEXT I 

3050 C*=R I GHT* < C* .. LEN < C* > -L > 
3060 RETURN 
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♦*•* MULTIPLE INTEGER MULTlPLICflT10N#ifs# 



793999993 
7799999999 

flNSWER= 3399999800000001 



GRAPHICS 

The PET graphic character set consists of 64 graphic symbols. Graphics 
are available on all PET models. On the CBIVl, select graphics by issuing a 
POKE 59468,12. 

The graphic characters are all located in the upper case positions on the 
keys, so they must be entered in shifted mode. On the full size keyboard, the 
SHIFT LOCK key may be engaged to remain in "graphic mode" until you release 
the SHIFT LOCK. 

Graphic symbols are entered onto the screen in either calculator mode or 
program mode. 

IVlany graphic characters are referenced and illustrated on the following 
pages. Refer to Table 2-2 for easy reference to graphic character keys, names, and 
symbols. 

GRAPHICS IN CALCULATOR MODE 

Sketching in calculator, or immediate, mode requires no line numbers, 
no PRINT statements, and no quotation marks. In calculator mode, the cursor 
may be moved freely up, down, right, or left to any spot on the screen without 
pressing the RETURN key after each directional change. Below is an example of a 
square drawn in calculator mode. Starting with the cursor in home position, the 
square was drawn left to right, top to bottom, right to left, and bottom to top, in 
one continuous movement. No line numbers, program statements, or line returns 
were needed. 

7 spaces 



7 spaces 
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We will use the square shown above as the basic graphic design to illustrate 
elementary graphics. Though simple in its design, sketching this square involves 
the major techniques used in graphic drawing on the PET. 

Drawing a square on the PET is more complex than it may first appear. The 
eight graphic keys and three cursor movements which are used to draw the four 
thin lines and four corners of the square are shaded in the diagram below: 
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Draw the Square 

There are nine steps to drawing the seven-space square discussed above. 
Let us now draw the square, step by step. 

Stepi: HOME the cursor. The top left corner of the H OM E position space 
should be the top left corner of the square (Figure 5- 3a) . 

Step 2: Type the upper left corner of the square. This is done by using the 
TOP LEFT CORNER □ (Figure 5-3b) . 

Step 3: Draw the top line of the square. Because we will use a CORNER 
key for the top right corner, type five TOP LINE HORIZONTAL □ in this 
step (Figure 5- 3c) . 

Step 4: Type the upper right corner of the square using the TOP RIGHT 
CORNER n (Figure 5-3d) . 

Step 5: Draw the vertical right side of the square. To allow space for the 
CORNER key, type five RIGHT LINE VERTICAL □ . 

We all know what this part of the square should look like, but does your 
screen look like this instead? 

I 1 II I II 
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If so. this happened because the cursor is automatically moved one space to the 
right after any character is printed. To enter characters vertically, the cursor must 
be repositioned both vertically and horizontally to compensate for the automatic 
cursor movement to the right. 

To print the vertical line of the square, then, repeat the sequence of CURSOR 
DOWN g , CURSOR LEFT El , and RIGHT LINE VERTICAL □ . Do this five 
times, and you should have printed the right side of the square (Figure 5-3e). 



Step 6: Type the bottom right corner of the square using the BOTTOM 
RIGHT CORNER □ . Before you type this, look to see where your cursor is: if 
you haven't already done so, use CURSOR DOWN and CURSOR 
L E FT ic] to position the cursor at the corner of the square; then press the cor- 
ner key (Figure 5-3f) . 

Step 7: Draw the bottom line. Because we are using CORNER keys, we 
need just five BOTTOM LINE HORIZONTAL □ (Figure 5-3g) . 

One method is to enter the line from right to left. After each character entry 
on the bottom line, two CURSOR LEFT @ movements will be needed to correctly 
position the cursor for the next entry. 



A second, and possibly more natural, method of drawing the bottom line is 
from left to right. To do this, position the cursor to the leftmost space of the bot- 
tom line (one space to the right of the left edge of the screen); this can be done 
using six CURSOR LEFT \S . You can then easily enter five BOTTOM LINE 
HORIZONTAL □ to create the bottom line of the square. 



♦J 



1st entry here 



2nd entry here 



\ 
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Step 8: Type the bottom left comer. Depending on which method you used 
to enter the bottom line, you will need to use CURSOR LEFT S two times 
(method 1) or six times (method 2) to position the cursor at the bottom left cor- 
ner, then use BOTTOM LEFT CORNER □ to complete this step (Figure 5- 
3h). 

Step 9: Complete the square by drawing the left vertical side. You should 
beabletotypefiveLEFT LINE VERTICAL □ to complete the square ( Figure 
5-3i). You will need to position the cursor before each entry, using CURSOR 
L E F T 13 and CURSOR UP El 



a. HOME cursor b. Upper left corner c. Top side 



d. Upper right corner e. Right side f. Bottom right corner 



g. Bottom side h. Bottom left corner i. Left side 



denotes position of cursor at the completion of the step 



Figure 5-3. Draw the Square 
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PROGRAMMING GRAPHICS 

Any graphics sketched by you directly onto the screen will be instantly lost 
when you execute a NEW statennent or turn the power off unless you first convert 
the graphics into a program. You can convert any design sketched onto the 
screen into a program simply by malting each line on the screen a string 
which is to be printed as part of a program. 

After you have sketched the square, move the cursor to the HOME position. 
Do not press CLEAR or RETURN. If you press CLEAR you will lose your picture 
forever. If you press RETURN, "READY." will be written through the middle of the 
square as shown below: 
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Y 













































































Or, if you had made your square so large that the horizontal lines of the square 
were printed on the top and bottom rows of the screen, and the cursor was posi- 
tioned on the bottom line, a RETURN would cause the display to roll up one line in 
order to write the READY message on the next line, losing the top of the picture. 
Before RETURN After RETURN 



For this reason, pictures larger than 39 characters wide or 24 characters long 
should never be drawn in calculator mode. 

Once the cursor is HOMEd, the next step is to move each line of the picture 
to the right in order to insert line numbers, question marks (shorthand for PRINT) 
and quotes. This converts each line from calculator to program mode so it may be 
saved on a tape file. 

When the cursor has been HOMEd, it should be at the upper left corner of 
the square (Figure 5-4a). Key INSERT five times so that the top line of the square is 
shifted five spaces to the right (Figure 5-4b). Now there is enough room to type a 
line number (100), a ?, and opening string quotes (Figure 5-4c). Then press 
RETURN (Figure 5-4d). The top line of the square is now a programmed statement. 
Continue doing this for each line, incrementing each line number by one hundred 
until the entire square has been converted into program statements (Figure 5-4e- 
f). 
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a. HOME cursor 



b. INSERT five spaces 

I 1 



c. Complete program statement 
10 0? "p" 



d. Key RETURN 



1 ? 'T 



e. Insert five spaces 
1 ?-T" 



f. Complete program statement: key RETURN 

r 



10 0? 
2 ? 



M denotes position of cursor at the completion of the step 



Figure 5-4. Make Progrann Statement from Graphics 

Be sure to number the lines in sequential order to avoid distorting the 
pietttre. Also, you do not need to move the cursor past the graphics to insert a 
second set of quotation marks at the end of each line. After the first set of 
quotes is typed, merely key RETURN. Your final program listing should appear as 
follows: 



100 PR I NT "I 1 

200 PR I NT "I I 
:300 PRINT"! I 
400 PRINT"! ! 
500 PRINT"! I 
600 PRINT"! I 
700 PRINT"! ! 
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Program Mode 

Instead of creating graphics in calculator nnode and converting it to a pro- 
gram in program mode, you can skip calculator mode completely. To draw the 
picture in program mode, each line of the picture is typed individually, with the 
line number, PRINT statement, and quotation marks typed in before the line of the 
picture. 

100 ?"| I 

200 ?"l I 
300 ■?"! I 

The space directly to the right of the quotation marks becomes column number 1 
on the screen. If you do not program with this in mind, your picture may end up 
towards the left-hand side of the screen. 

If you program a PRINT string of exactly 40 characters in length, you 
must include a second set of quotes and a semicolon at the end of the line. If 
you do not include the semicolon, an extra line will be printed in your display due 
to the cursor's automatic positioning to the next line after printing in column 40. 

SUMMARY 

Let us briefly review the drawing and programming of a graphics picture. 
Graphic symbols are printed only when the keyboard is in shifted mode. 
Graphic symbols are printed in either calculator or program mode. To pro- 
gram the picture, two methods are available: 

1. Sketch the picture in calculator mode. Move the picture towards the 
right side of the screen. Add the line number, PRINT statement, and 
quotes to the left of each pictorial line to program statements. 

2. In program mode, type one line at a time with the line number, PRINT 
statement, and quotes to the left of each picture segment. 

A hint before moving to the next aspect of graphics. It is advisable to draw 
your picture or diagram on a piece of paper before drawing it on the screen. Map 
out on a piece of graph paper an area 40 squares wide by 25 squares long, using 
one square on paper for each space on the PET screen. Then draw your picture on 
the paper. Be sure to include space for the line numbers if you are going to con- 
vert the picture to program mode. Once everything is ready, type the program 
from the paper onto the screen. 
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ANIMATION 



Animation on the PET is done in program mode. Any graph, number, 
design, word, or picture may be programmed to move sideways, up, down, or 
diagonally, flash on and off, print faster or slower, in almost any combination. 

Animation is a capability tliat distinguishes the PET fronn many other computers, 
and it will probably be the most fun aspect for you. 

To demonstrate animation, we will begin by animating the sketching of the 
small square programmed in the previous section (see page 5-95 for final listing). 
Instead of seeing the square appear instantaneously on the screen, animation 
will allow the viewer to watch each element of the square slowly appear on 
the screen. 

The program to animate the square looks very different from the previous 
program because the line segments are programmed in BASIC code and not as 
picture segments. There is no large square within quotation marks. The square is 
broken down into individual graphic characters. 

TIME DELAY 

The purpose of the animated program is to slowly move the cursor so 
we can see the lines of the square being printed clockwise from the top left 
corner of the screen. 

■M ► 



The first step, as always, is to clear the screen. This also puts the cursor in 
the home position. 

5 PRINT-rj".; 

The second step is to type the top left corner. However, do not draw the 
whole top line as you did in the previous program, just the corner. 

10 PR I NT 'T".; 

In order to see each element of the square being printed, it is necessary 
to slow down the normal PET print speed. This can be done by using a time 
delay loop, similar to this statement 100: 

100 FOR J=l TO 10: NEXT J : RETURN 

The FOR. ..NEXT loop increases the time between the printing of each character. It 
forces the PET to count from 1 to 10 each time the subroutine is called. While the 
PET is counting it cannot execute other statements or print, thus it is delayed from 
printing the next character and its print speed appears slower. The TO index for J 
can be increased or decreased to lengthen or shorten the delay. The larger the TO 
index for J is set, the longer the time between printing each character. 
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For our animation program, then, we must include this time delay loop after 
printing the next element. Since the programmed time delay loop remains the 
same for each element, we call it as a subroutine. Therefore, after printing the up- 
per left corner of the square, call the time delay loop, subroutine 100. 

PROGRAMMING CHARACTER PLACEMENT 

The third phase is to print the top line of the square. Instead of programming 
PRINT we will use a FOR.. .NEXT loop: 

15 FOR 1 = 1 TO SPRINT""".; GOSUB 1 60: NEXT I 

Statement 15 uses a FOR.. .NEXT loop so that the subroutine time delay can be 
called between each printing of To program the PET to sketch the square 
slowly, the time delay must be called after each character is printed. It would be 
useless to program: 

15 PRINT" ";:eOSUB 100- — incorrect 

because the whole line would be printed instantaneously without any time delay. 

To complete the top line, type the upper right corner. Again, include the 
time delay subroutine call. 

20 PRINT"")".; GOSUB 100 
So far, the program looks like this: 
5 PRINT".^".; 

le PR I NT "P".; -COSUB 100 

15 FOR 1 = 1 TO 5;PRINT"-"; ;GOSUB 100; NEXT I 

20 PR I NT "1"; :eOSUB 100 

100 FOR J=l TO 10: NEXT J ^ RETURN 

Run the program. You should see the following progression appear on the 
screen: 



r 
I — 




r 



I 1 

Hopefully, this is what you saw. If not, go back and find out what went wrong. Did 
you forget the semicolons after each PRINT statement? 

End all PRINT statements in this program with a semicolon; the semicolon 
concatenates graphic strings together when printed. This allows the " r " and 
the top line " " to be concatenated together on the same line: 
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Without the semicolons, the PET performs a carriage return after each statement 
and the top line will look like this: 
r 



The other three sides are drawn in a sequence similar to lines 10 and 15. 
Line 20 begins the next sequence, then converts the linear segment to 
FOR. ..NEXT/PRINT statements, calling the time delay subroutine in that PRINT 
loop. Don't forget to include the cursor controls to compensate for the automatic 
right cursor movement inside the FOR. ..NEXT loops for the vertical sides of the 
square: 

PRINT" ««" right side PRINKRIGHT LINE VERT. XCURSOR L. > 

<CURSOR DOWN> 
PRIHT"_Jir' bottom PRINKBOTTOM LINE HOR IZ. XCU R SOB L.> 

<CURSOR L. > 

PRINT"! in" leftside PR I NT <L E FT L IN E VE RT. XCU R SOR L. > 
<CURSOR UP> 

The program listing looks like this: 
5 PRIHT".T'..- 

10 PR I NT "T".; :GOSUE 106 

15 FOR I = 1 TO 5 : PR I NT " -" .; : GOSUE 1 00 ^ NEXT 1 
20 PRINT"-)".: GOSUE 100 

25 FOR I = 1 TO 5 ■ PR I NT " ilS" : GOSUE 1 ©0 ■ NEXT I 
30 PR I NT "J".; : GOSUE 100 

:35 FOR 1 = 1 TO 5 : PR I NT "_!■!" ; : GOSUE 100: NEXT I 
40 PR I NT "L.".; GOSUE 10© 

45 FOR I = 1T0 5 : PRINT"! in".; : GOSUE 10© : NEXT I 
50 END 

100 FOR J=l TO 10: NEXT J : RETURN 

Now, try a trial run. Does your square look like this? 

I 1 ! 

RERDV. ! 

I ! 

I i 

! I 
L I 

If this design appeared instead of a perfect square, some of the cursor controls 
were left out. The PET did exactly what it was programmed to do, so where is the 
problem? Take a closer look at the program. We included cursor controls within 
the FOR. ..NEXT loops for all four sides of the square. Now look at the screen. The 
problem is not with the sides. The problem, therefore, must be in the corners. 
Look at statements 20, 30, and 40. We forgot the cursor controls after each corner 
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position. Make the proper changes, and the program should look like this: 
5 PR I NT ".T'; 

10 PRINT'T".; :GOSUB 100 

15 FOR 1=1 TO 5 PRINT"-" J : GOSUB 160: NEXT I 
20 Pf?INT"^KI"; :GOSUE 100 

£5 FOR 1 = 1 TO 5: PRINT" IW" .; : GOSUB 100: NEXT I 
30 PRINT"Jiil" v : GOSUB 100 

35 FOR 1 = 1 TO 5:PRINT" Jil"J :GOSUB 100:NEXT I 
40 PRINT"Lin"; : GOSUB 100 

45 FOR 1 = 1 TO 5 : PRINT"! in"; : GOSUB 100:NEXT I 
50 END 

100 FOR J=l TO 10: NEXT J : RETURN 
Now try another trial run. Your picture should look like this; 
REflDV. I 

m I 

I I 

I I 

I I 

! I 

You should have been able to watch the PET slowly sketch the square on 
the screen in a clockwise direction. Remember, you may change the print speed 
by changing the TO index value for variable J in the time delay loop. 

One last problem: How to avoid destroying the square with the READY 
message. 

When drawing the square is completed, the cursor is on line 2; when the 
programs ends, the READY message is printed on the next line, which happens to 
be within the square. Therefore, before ending the program, you must compen- 
sate for this by moving the cursor below the square: the READY message will be 
written underneath the square and not across it. This is done by printing several 
CURSOR DOWNS before the END statement. 
50 PR I NT " Kommm" ■■ end 

This will move the cursor down below the square and the square will not be 
destroyed: 

I 1 



REflDV. 

m 
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Enlarging the Square 



Let's take the small square we just animated and enlarge it so that it forms a 
boundary one space from the perimeter of the screen: 



The PET screen is 40 spaces wide by 25 spaces long. If the rectangle's sides are to 
be one space from the perimeter, then the square should be 38 spaces wide by 23 
spaces long: 

40-2 (1 space for each side) = 38 
25-2 (1 space for eacfi side) = 23 

With just a few changes to the animated small square program we can draw 
the larger rectangle to form the screen boundary. FOR. ..NEXT loops were used in 
the previous animation program to print a string of graphics for each side, FOR 
1-1 to 5. To enlarge the square, change the value of the TO index to 35 for the 
horizontal sides and 21 for the vertical sides, leaving spaces for the corners. 

40-2 (1 space for each side) - 2(corners) = 36 
25-2 (1 space for each side) - 2(oorners) = 21 

15 FOR I-l TO 36:?"-"; „ Horizontal sides 

25 FOR 1=1 TO 21?" IM"; 

35 FOR 1=1 TO 36:?"_lir; '^^^ 

45 FOR 1 = 1 TO 21:?"lin"; Vertical sides 

Make these changes in your program and try a trial RUN. 

That was simple. Because you have just created a boundary around the 
edge of the screen, the last statement of the program to move the cursor out of 
the square is unwanted. Instead, delete line 50 and program the cursor to move 
inside of the box and print something; you do not want a boundary surrounding 
an empty screen. Be sure not to program the cursor to go beneath the square, 
because the screen will scroll up, and you will lose the top of the square. Program 
something inside the box, type RUN and watch it go! 



236 



SUMMARY 



Here are some important points to remember when animating: 

1. Map the picture on graph paper first. 

2. Use time delay loops to control print speed. 

3. Do not forget semicolons or cursor controls. 

4. Before the end of the program, move the cursor out of the picture before 
the program END or STOP writes the READY message. 



FILES 

Before attempting to use files, you must have a good understanding of what 
a file is. A "file" is a collection of information. Files appear in many forms, but 
the ones we are interested in are the groups of information on a cassette 
tape. Each group of information found on a PET cassette is either a "pro- 
gram" or "data" file. A file is divided up into smaller segments called 
"records" and "fields." A "field" is a unit of data. A unit of data may be of any 
type and any length. These units of data are grouped together into larger 
groups called "records." Records contain at least one field, but usually contain 
several fields. The records are then grouped together into a file. Each file con- 
tains at least one record, which may be as long as the file itself, or several records 
variable in length. Files, records, and fields have no fixed length unless your pro- 
gram sets a maximum length. The format of a file is shown below: 




fields 



record 1 



record 2 



records 




file 



tape 
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A good way to visualize what constitutes a file is to picture an address book. 
The address book nnay be a book, file cabinet, or cassette tape. The address book 
is then divided into 26 sections by letter: A through Z. Each section contains a 
collection of names and addresses of people whose last name starts with the par- 
ticular letter. We will call these alphabetic sections files. Therefore, the address 
book is divided into 26 files, each file referenced by a letter: 





ADDRESS BOOK 


Joe Adams 






563 Bancfofl Way 


533-6564 


C 


Bend, CA 






E 


Steve Alberts 






336 Rose St 


654-3211 


2. 


Betkeley. CA 






Gloria Arnold 






777 Greenfield 


456-7890 




Haywa'd, CA 




O, 












Q 
























X 







-File 1(A) 
•File 2(B) 
■File 3(C) 



-File 25(Y) 
-File 26(Z) 



Each file is further divided into records. The name, address, and telephone 
number of each person in the address book constitutes a record: 

"0 



Joe Adams 


533-6564 


563 Bancroft Way 


Bend, CA 


Steve Alberts 


654-3211 


336 Rose St. 


Berkeley, CA 


Gloria Arnold 


456-7890 


777 Greenfield 


Hayward, CA 



!> record #1 



^record #2 



Wecord #3 



•file #1 



Each record in the address file is divided into four fields. Field #1 contains 
the name; field #2 the street address; field #3 the city and state; and field #4 the 
telephone number. 



Gloria Arnold -< — 






777 Greenfield 




456-7890 


— 


Hayward, CA — 




• — 



-field #1 
-field #2 
-field #3 
-field #4 



■ record #3 



To get to a field, the file and record numbers must be accessed first. In other 
words, to find out in what city Gloria Arnold resides. File #1 and Record #2 must 
be referenced first before Field #3 may be accessed. This structuring is very im- 
portant because it enables large quantities of data to be separated into smaller 
units, making it more organized and more easily accessible. 

The PET uses two types of files: program files and data files. 
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PROGRAM FILES 



A program is written onto the tape as an entire file. Its organization of 
records and fields is not determined by the programnner, but is done internally 
within the PET. The user need not worry about a program file's records and fields, 
since they are not important to the programmer. A program file should have a 
unique name because a name makes it much easier to find the program when 
searching the tape. The program file is named with a SAVE command; in other 
words, the program name becomes the program file name. 

Since you already know how to create a program file, we will quickly review 
the procedure (see Chapter 3). There are three steps in writing a program file; 

1. Code the program and type it into memory. 

2. SAVE the program on tape. 

3. VERIFY the SAVEd program. 

The first step is to code and then enter the program into the PET's memory. 
The second step uses the SAVE command; 

SAVE"filename",device,s 

where: 

filename is the program name enclosed in quotes. 

device (optional) is a predefined number (1-255). 

s (optional) is a secondary address code (0-5). See Table 4-2. 

The third step VERIFIES the program just SAVEd on tape by comparing it to 
memory to make sure everything is written correctly. Rewind the tape and type; 

VERIFVfilename" 

where: 

filename is tfie program filename just SAVEd. 

DATA FILES 

The other type of files are data files. The data file, as its name implies, eon- 
tains data to be read from a program file. Unlike a program file, the program- 
mer may define the organization of a data file into records and fields. The pro- 
grammer may establish the number of fields in each record, and the number of 
records in each file. He/she may also set maximum lengths or allow records and 
fields to be variable in length. The program file may be programmed to read or 
write any type of data to or from the data tape, whether numeric, alphabetic, con- 
stant, or string. 

The emphasis of this section is on data files — how to create and 
manipulate them with program files. Therefore, throughout the remainder of 
this chapter the term "file" refers to "data file," unless "program file" is 
clearly stated. Further, the discussion of data files concentrates on files stored on 
cassette tape. 
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Before beginning file operations it is advisable, if you have not already 
installed the new ROMs (Read-Only Memory chips) in the PET, that you do so 
before attempting to write files. With the old ROMs it is very difficult, if not im- 
possible, to read and write data tapes, as the tapes will not move without several 
extra commands to force the PET to move the tapes. File attributes of the old 
ROMs are discussed further in Appendix H. The following discussion assumes 
that you have the new ROMs. 

FILE HANDLING 

Being able to handle your files correctly is extremely important for successful 
programming. The programmer must know when to open or close a file, and when 
and how a file can be read from or written to. Basically, there are four steps in 
file handling: 

1 . LOAD the program file. 

2. OPEN the data file. 

3. Read/write to the data file. 

4. CLOSE the data file. 

Program LOAD is done in immediate mode. OPEN, read/write and 
CLOSE of the data file are programmed within the program file. The flow of 
the procedure appears as follows: 



LOAD 
program file 

MOUNT 
data tape 

i 

RUN 
program file 

OPEN 
data file 

V 

WRITE 
or READ 
data file 

T 

CLOSE 
data file 

t 

Q END J 
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Step 1: LOAD the program file with the LOAD command: 

LOAD"PROGRAM" 

When you execute the program, it may write data to a data tape, or read 
data from a data tape. Therefore, once the program file is loaded, mount a tape. If 
the program will write a data tape, mount a blank tape. If the program will read a 
data tape, mount the data tape specified in Step 2. Then execute the program 
using the RUN command. 

Step 2: OPEN the data file. The data file is opened in program mode 
within the program file as illustrated: 

OPEN 1,1,2,"DATA" 

^ file name 

I secondary address 

' physical device nunnber 

file number 

The OPEN statement above opens file number 1 on physical device number 
1. (Physical device #1 is the cassette unit; refer to Table 4-1 for physical device 
codes.) Secondary address #2 is specified, which indicates an OPEN for WRITE 
with an End of Tape (EOT) mark to be set when the file is closed (refer to Table 4-2 
for secondary address codes). The file name specified is DATA. 

When writing a data file to a cassette tape, a secondary address code, 
#1 or #2, must be specified in the OPEN statement. A secondary address 
code #1 indicates the file to be opened to record data, but no EOT mark is set 
when the file is closed. Secondary address code #2 indicates that the file is 
opened to record data, and an EOT mark is to be written when the file is closed. 
When the PET encounters an EOT mark when reading a data tape, it displays END 
OF TAPE and reads no further; this can be used to assure that no attempt is made 
to read large amounts of blank tape. Therefore, a secondary address code 2 
should be used when the data file is the only file on one side of a cassette, or the 
data file is the last file on one side of a cassette. 

If no secondary address code is specified in the OPEN statement, the sec- 
ondary address defaults to 0. 

Step 3: Read or write to the data file. This will be discussed in the sections 
"Writing a Data File" and "Reading a Data File." 

Step 4: After a data file has been read from or written to, it must be 
closed. Like OPE N , closing a file is programmed within the program file with a 

CLOSE command. Be careful to CLOSE the same logical field that was OPENed. 

OPEN 1,1,2,"DATA" 



CLOSE 1 
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When the data file is closed, the PET writes a special mark, called an End of 
File (EOF) nnark, on the data tape following the last data item. This mark signals 
that the end of the data file has been reached. Later, when the PET is reading a 
file, it will read no further when it encounters an EOF mark, knowing that it has 
reached the end of the file. An EOF mark may be searched for with the STATUS 
WORD command (ST), which checks the file status. ST equals 64 when an EOF 
mark has been found. The status word will be useful later when reading back data 
tapes. (For further discussion of the status word, refer to Chapter 4, "Basic 
System Functions.") 

Mounting the Data Tape 

Mount the data file cassette into the tape drive after you have loaded 
but before you have executed the program. If you run a program which is to 
read to or write from an external data file (such as a cassette) and there is no 
cassette to read to or write from, the PET will search forever looking for a file on a 
cassette that isn't even there! When the data cassette is mounted, the tape 
must be positioned so that the data file can be located. Certainly if the 
cassette is mounted but the tape is wound to the end, the PET will not be able to 
locate, read, or write any data file. 

When writing to a data tape, the PET begins writing on the tape exactly 
where it is positioned. Therefore, be sure that there is nothing at that position on 
the cassette which you don't want to lose if the PET writes over it. Also, be sure 
there is plenty of empty space on the cassette following the initial position, so 
that as the PET continues to write to the tape no further information gets written 
over. 

When reading from a tape, the PET searches forward for the data file 
name you have specified in your OPEN statement. Your data cassette should 
therefore be positioned at some point prior to the beginning of the data file you 
wish to read from. If the PET searches forward and never finds the data file 
specified in the OPEN statement, a FILE NOT FOUND ERROR message is printed 
on the screen. 

It is a good practice to put only one data file on each side of a cassette, al- 
ways beginning the file at or near the start of the tape. By doing this, you will al- 
ways position your tape at the beginning of the tape for both reading and writing. 
Furthermore, when writing to the tape, you will never need to worry about writing 
over any other file. 

WRITING A DATA FILE 

Creating a data file is an important programming technique because it 
expands the PET's capabilities to allow processing of large quantities of 
data. This is the emphasis of this section. 

To create a data file, LOAD the program file. To use an external data file, you 
must have three statements within the program file: an OPEN command, a read 
or write command, and a CLOSE command. 
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To write from a program to a data tape use the PRINT# command: 



PRINT#f,data 

where: 

f is the logical file number (1-255, must match the f in the OPEN and CLOSE 

commands), 
data is the data to be written. 

PRINT# cannot be typed as PRINT # or ?#. PRINT# must be completely spelled 
out when referencing files. 

PRINT# transfers data one character at a time to a cassette buffer 
before sending the data to the tape. When the cassette buffer reaches its 
maximum capacity of 191 bytes of data, the cassette buffer stops accepting 
data, and sends the data in the buffer to the data tape as a "blocl<" of data. A 
block may contain a partial record, a single record, or several records of data. 



Data 
on screen 



Data 
in memory 



Data in 
cassette 
buffer 



Data 
on cassette 



Either numeric constants or strings may be transferred with the PRINT# 
statement. Figure 5-5 shows the flow of the PRINT# process. 



Writing Numbers 

Writing numbers to a data tape is similar to printing numbers on the screen. 
Let's write a program called NUM.PRINT#, to write the numbers 1 through 10 on 
a data tape, where each number is a single record. 

The first action of the program is a display of the program function and load 
instructions: 

NUM.PRINT# 

10 PRINT'-rj** CREATE NUMERIC DflTfl TRPE ♦♦":PRINT 

20 PRINT"** MOUNT TAPE; PRESS <RETURN> WHEN REflDV ♦♦"PRINT 

30 GET fl*:lF fl*="" THEN 36 

Line 20 instructs the user to insert the data tape in the cassette unit and rewind it 
to the beginning of the tape. Once the data tape is ready for writing, press 
RETURN. Line 30 is a wait loop which waits for RETURN or any key to be pressed. 
If no keystroke is entered, it waits. 

This wait loop is important because it doesn't let the PET do anything 
until you have loaded a data tape. If line 30 were deleted and there were no wait 
loops, the PET would give the user no time to mount and rewind the data tape. As 
soon as any cassette button was depressed, the PET would attempt to open the 
file, even if you were trying to rewind the data tape. 

Once a key is pressed, A$ 4^"" and the program drops down to the next line 
to OPEN the mounted data file: 

40 PRINT'>^ OPENING DflTfl FILE ♦♦": OPENl . 1 . 2. "NUMBERS" 
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Start J 

JIT 



OPEN 
Data File 



I 



INPUT DATA 
SCREEN 
Memory 



CLOSE Data 
File 



c 



End ) 




Transfer Data 
to 

Cassette Buffer 




Transfer Block 
of Data to Tape 



Other 
Processes 



CLOSE 
Data File 



c 



End 



Figure 5-5. Using PRINT# 
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This OPEN command opens logical file #1, physical device #1 (the cassette tape 
unit), secondary address 2 (OPEN for write and EOT mark at close of file), assign- 
ing the new data file the name NUMBERS. 10 

Next, we set up a FOR . . . NEXT loop to print the numbers 1 through ^0 on 
the screen and on the data tape: 



50 FOR N=l TO 10 
60 PRINT N 
70 PRINT#1.N 
80 NEXT N 



■ Print N on screen 

■ Print N on data file #1 (NUMBERS) 



Printing to the screen and to the tape require separate commands. 

PRINT#1 ,N will print only to the tape. Remember that PRINT# cannot be typed in 
as ?#. PRINT must be spelled out completely, with the number sign, file number, 
comma, and variable following respectively. 

incorrect Correct 

?#1.N PRINT#1.N 

PRINT N 

PRINT #1.N 

PRINT#1N 

PRINTl.N 

Any of the above incorrect methods will result in a syntax error, except 
PRINT N, which will print to the screen but not to the tape. 

If everything works correctly, lines 50 through 80 write to the tape and 
screen: 

PET screen F^epresentation of Data Tape 



4 
5 



9 
10 




<CR >= carriage return 

Because data cannot be written on separate "vertical lines" on a tape, car- 
riage returns are automatically inserted on the tape in relation to the carriage 
returns on the screen. 

After all data is written to the tape, the file is closed. To ensure that all the 
data is written to the tape you must CLOSE the file. 



90 PRINT"** 

100 END 



CLOSING DftTfll FILE ♦♦"CLOSEl 
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Be sure that the logical file CLOSEd is the same one that was previously OPENed. 

OPEN 1,1,2,"NUMBERS" 



CLOSE 1 

The listing of NUM.PRINT# looks like this: 

10 PRINT"r>* CREATE NUMERIC DflTfl TAPE ♦♦":PRINT 

20 PRINT"** MOUNT TRPE; PRESS <RETURN> WHEN REflDV PRINT 

30 GET fl*:IF fl*="" THEN 30 

40 PRINT"** OPENING DflTfl FILE **": OPEN! , 1 .. 2.. "NUMBERS" 
50 FOR N=l TO 10 
60 PRINT N 
70 PRINT#1.N 
80 NEXT N 

90 PRINT"** CLOSING DflTfl FILE **":CL0SE1 
100 END 

The main statements that differentiate this program from a program that prints 
only to the screen are at lines 40, 70, and 90: the OPEN, PRINT#, and CLOSE 
commands. 

Below is a RUN of the program: 

** CREflTE NUMERIC DflTfl TAPE ** 

** MOUNT TAPE; PRESS <RETURN WHEN READV** 

** OPENING DATA FILE ** 

PRESS PLAV & RECORD ON TAPE #1 

OK 

1 

2 
3 
4 
5 

G 

-? 
I 

8 

10 

**CLOSING DATA FILE ** 
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Writing Strings 

The PRINT# statement also prints strings. Taking the previous program 
NUM.PRINT# and altering it somewhat, we can print the words "ONE" through 
"TEN" as strings. The new program will be called WORD.PRINT#. The words are 
supplied through either an INPUT or READ/DATA statement. Our sample program 
uses a READ/DATA statement. The READ statement is inserted in the FOR . . . 
NEXT loop at line 60 and a DATA statement is added to the end of the program. 
The final program is listed below, followed by a sample run of the program. 

WORD.PRINT# 

10 PRINT"rJ»*CREPITE WORD DflTfl FILE**" = PRINT 

20 PRINT"**MOUNT DflTfl TflPEi PRESS <RETURN> WHEN REflDV**" 

30 GET fl*:IF fl*="" THEN 30 

40 PR I NT " **OPEN I NO DflTfl F I LE** " : OPEN 1 . 1 . 2 , " NUMWORD " = PR I NT 

50 FOR N=l TO 10 

€0 READ N« 

70 PRINT N* 

S0 PRINT#1.N* 

90 NEXT N 

100 PRINT"**CLOSING DflTfl FILE**" : CLOSE 1 

110 DflTfl ONE. TWO. THREE. FOUR. FIVE. SIX. SEVEN, EIGHT, NINE,. TEN 
120 END 



**CREflTE WORD DflTfl FILE** 

**MOUNT TflPE.- PRESS <RETURN> WHEN REflDV** 

**OPENING DflTfl FILE** 

PRESS PLflV & RECORD ON TflPE #1 
OK 

ONE 

TWO 

THREE 

FOUR 

FIVE 

SIX 

SEVEN 

EIGHT 

NINE 

TEN 

**CLOSING DflTfl FILE** 

Writing one string per data item is simple, but writing several strings per 
data item is a little more difficult. To put several numbers or strings on each line, 
the item separators (commas or semicolons) must be "forced." These separators 
are otherwise automatically deleted, which results in a garbled mess when read- 
ing the file. For instance, if the following statement is executed: 

PRINT#1,F$,IVI$,L$ 
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it is sent to the tape with no comnnas separating the words. 



[ 



F$ 



M$ 



The separators must be forced by one of the following two nnethods: 

1. Enclose the separator within quotes: PRINT#1,F$;",";M$;",";L$ 

2. Use the CHR$() statement: PRINT#1,F$;CHR$(44);M$;CHR$(44);L$ 

Item Item 
Separator Separator 

where: 

CHR$(32) = \i 
CHR${44) = , 
CHR$(59) =: 

This second method will force commas or any other separators to be written on 
the tape, thus ensuring your strings will stay separated: 



^ F$~| . I M$ I , I 1$ ~<"cR> ^ 



The program below, called NAMES.PRINT#. forces separators to keep F$, 
M$, L$ name strings (first, middle, last) from running together: 

NAMES.PRINT# 

10 PRINT-.T^^CREflTE NAME DftTfi FILE**" PRINT 

20 PRINT"**MOUNT DftTfi TAPE; PRESS <:RETURN> WHEN REftDV**" 

30 GET (=I*:IF f=l*="" THEN 30 

40 PRINT"**OPENING DflTfl FILE**" ^ OPENl , 1 . 2. "NRME" : PRINT 
50 FOR J=l TO 4 
60 INPUT F*,M*.L* 
70 PRINT F*.M*.L* 

80 PRINT#1 . F*; CHR*<44> ; M*; CHR*<44> i L* 
90 NEXT J 

100 PRINT"**CLOSING DflTfl FILE**" CLOSE 1 
110 END 
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Sample Program 

This sample program will demonstrate how to write complex records of data 
to a data tape, where the format of the data is specified by the programmer. The 
new program MAIL.PRINT# will print a mailing list named MAIL onto a data tape. 
MAIL will later be read by another program called MAIL.INPUT#. MAIL is similar 
to the address book previously discussed, except that MAIL contains all the 
names and addresses from A to Z. Each name and address, along with the record 
number, makes up a record of the mailing list. 

RECORD #6 ♦♦ 

WIDGETS SUPPLV CO. I 
555 BOGUS fiVE. > one record 

GERTIE 

TENNESSEE 38901 

At this point, the total number of records in the file is unknown. Each record 
is formatted to contain five fields: 1) record number, 2) name, 3) street address, 4) 
city, 5) state and ZIP code. 

♦♦ RECORD #6 field 1 

WIDGETS SUPPLV CO. field 2 

555 BOGUS AVE. field 3 

GERTIE field 4 

TENNESSEE 38901 field 5 

Of course, this is not what the data actually looks like on the data tape, but 
only how it has been arranged on the screen. The data on the tape is not written in 
English, but for purposes of demonstration it will be pictured as such. Below is an 
illustration of how record #6 appears on the tape. 




555 BOGUS AVE. <CR> GERTIE <CR> TENNESSEE Izl 3890KCR >^ 



I 

field 2 field 3 field 4 

I 

U one record - 



The program statements to read and print the data read from the tape determine 
how the data appears on the screen. 
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Following is a program listing of MAIL.PRINT#, Type MAIL.PRINT# into 
PET memory, and save it on a cassette tape. Then list the program to follow the 
step-by-step discussion to see how it writes MAIL. 

MAIL.PRINT# 

10 PRlNT"r»#**«*#******(H.tiK.ii.tti,4," 

20 PRINT"* 

30 PRINT"* MAILING LIST ENTRV 
40 PRINT"* t" 
50 PR I NT " *♦*♦♦♦♦***♦**♦♦♦♦♦***# " 

60 PR I NT ":««!»* MOUNT TfiPE.; <RETLIRN> WHEN REflDV ♦*" 
70 GET Pi*: IF fl*="" THEN GOTO 70 

30 PRINT".!!)** OPENING MfilL FILE **":riPEN 1 ■ 1 . . "MAIL " 
30 1=1+1 

.100 PRINT"."! ** MAILING LIST ENTRV ITEM" : I . " *♦" 

U0 PRINT" — — -fSiiS- 

120 PRINT" <IF NO MORE ENTRIES.. ENTER " C:HR*:'r34 :' : "END 

".:CHR*';34::'.; " ;> " 
130 PRINT":«!!I?MNPLIT " 1 ;) NAME " ; NM* 

140 IF NM*="ENri" THEN CLOSE 1 'PRINT "n".:"** END OF Pprm 

RAM *♦ " : END 
150 INPUT "2;:' ADDR LINE l"..-fll* 
160 INPUT "3> ADDR LINE 2".;R2* 
170 INPUT "4:.' ADDR LINE 3".; A3* 

180 INPUT "-^iiim ENTER FIELD # TO HHANr-iE (■0=Sfi'..'E-' " ■ v 
190 IF K=0 THEN 220 

200 IF X>=1 AND X<=4 THEN GOSUE 2S0 

210 GOTO 180 

220 PRINT#1.. I 

230 PRINT#1.. NM$: 

240 PRINTttl .. Al* 

250 PRINT#1.,A2* 

260 PRINT#1.. A3* 

2' 70 GOTO 90 

280 PRINT".1!IJ!W" :0N K GOTO 290.. 308 . 31 fi . 320 

290 INPUT "1.:. NAME " NM* : RETI IRN 

300 PRINT- INPUT "2;. ADDR LINE 1 " .: fll* : RETI IRN 

310 PRINT".l!l?3" INPUT "3::. ADDR LINE 2 "; A2* : RETURN 

320 PRINT".!!l!!W" : INPUT "4;5 ADDR LINE 3 " .." A3* : RETURN 

Recall the procedure to create a data file: 

1. Create and/or LOAD the program file. 

2. OPEN the data file. 

3. WRITE to the data file. 

4. CLOSE the data file. 

The first step is to LOAD the program file. MAIL.PRINT# should be loaded if 
it is not already in memory. List the program. The first five lines (10 to 50) display 
a brief description of the function of the program. It's a good idea to describe the 
program because it helps to ensure that the user knows the function of the pro- 
gram. The next segment instructs the user to mount the data tape (lines 60 and 
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The second step is to OPEN the data file: 

S0 PRINT-Jfl** OPENING MOIL FILE ♦♦" : OPEN l.l>2."MfiIL" 

IVIAIL is opened as logical file #1 on the cassette unit, with an EOT nnark to 
be written at the CLOSE of the file. The message " OPENING MAIL FILE " is 
displayed on the screen innmediately prior to the actual OPEN command so the 
user knows that the file is being opened (it takes a few seconds to open the file). 

Now the tape is ready to accept data. As data is input to the tape it should 
also be input to the screen so the data may be checked for mistakes. Lines 130 
through 170 input the data to the screen. 

Variable "I" in line 90 is the incrementing record counter, displayed at line 
100. Lines 130 to 170 accept each variable, NM$ (name) and A1$, A2$, and A3$ 
(addresses) as separate fields by keyboard input: the end of each field is signaled 
by a carriage return. After all four fields have been entered, line 180 instructs the 
user to either change a field or save the record. If a field is incorrect, the user types 
the field number (1-4) and the program jumps to a correction routine at line 280 to 
change that field. 

Depending on the field number input (variable X) the cursor is placed at the 
specified field, allowing the user to change the field, and the program returns to 
line 180 for the user to specify another field change. When all the fields are cor- 
rect and is input, the program continues at lines 220 through 270 to write the 
record on the data file. Each data item is written as a separate field by writing only 
one data item with a carriage return per PRINT* command. The data is written to 
the data tape as: 

^ 65 <CR> WIDGET SUPPLY CO. <CR> 555 BOGUS AVE. <CR> GERTIE ^ 

Be sure the file number referenced by the PRINT# is the same one specified in the 
OPEN statement. 

After the record is saved, the program returns to line 90 to prepare for input 
of another record. If you have no more records to enter, enter "END" for NM$. 
Line 140 closes the data file and writes an EOT mark (specified in the OPEN com- 
mand) when NM$="END". 

You may have noticed that the tape does not move after each record is 
saved. The PET stores all the data to be printed in an "input buffer" until it is 
written to the tape. When the input buffer is full, it writes a "block" of data 
to the tape. A block may contain a partial record, a single record, or several 
records. The PET leaves interblock gaps between each block of data. However, 
you need not be concerned with blocks except to understand that the PET reads 
and writes data in blocks. 



^ block gap block gap ^ 



Figure 5-6 shows a flowchart of the MAIL.PRINT# program. 
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Figure 5-6. MAIL.PRINT# 
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Let's try a sample run of the program. Prepare a data tape and run the pro- 
gram to write your mailing list onto the data tape. A sample run may look like this: 

♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦ 

♦ MAILING LIST ENTRY ♦ 

♦ ♦ 

MOUNT TAPE; PRESS <RETURN> WHEN REflDV 
OPENING MAIL FILE 

PRESS PLflV & RECORD ON TfiPE #1 

OK 

MAILING LIST ENTRV ITEM 1 t* 



<1F NO MORE ENTRIES, ENTER "END"> 

ENTER FIELD # TO CHANGE <0=SflVE.') 



ID NAME ACME MANUFACTURING CO. 

2> ADDR LINE 1 1235 MAIN ST. 

3> ADDR LINE 2 DOWNTOWN 

4) ADDR LINE 3 IL 62561 



MAILING LIST ENTRV ITEM 2 



CIF NO MORE ENTRIES. ENTER "END"> 

ENTER FIELD # TO CHANGE <0=SAVE> 



1> NAME BENJAMIN FRANKLIN 

2> ADDR LINE 1 12 LIBERTY TOWER 

3> ADDR LINE 2 PHILADELPHIA 

4> ADDR LINE 3 PA 16524 



MAILING LIST ENTRV ITEM 3 



(IF NO MORE ENTRIES, ENTER "END"> 

ENTER FIELD # TO CHANGE <0=SAVE> 



1> NAME NEIL ARMSTRONG 

2) ADDR LINE 1 537 SEA OF TRANQUILITY AVE. 

3> ADDR LINE 2 EARTHVIEW 

4> ADDR LINE 3 LUNAR 000000 
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MAILING LIST ENTRV ITEM 4 



<IF HO MORE ENTRIES. ENTER "ENB") 

ENTER FIELD # TO CHANGE <0=SflVE> 

1> NAME MAMMOTH DISTRIBUTION CO. 

2> ADDR LINE 1 INDUSTRIAL PARK 

3> ADDR LINE 2 CI TV OF INDUSTRV 

4> ADDR LINE 3 CA 92425 



MAILING LIST ENTRV ITEM 5 ♦* 



<IF NO MORE ENTRIES. ENTER "END") 

ENTER FIELD # TO CHANGE <0=SAVE> 

1> NAME HENRV MUSCATEL 

2) ADDR LINE 1 819 OAK ST. 

3> ADDR LINE 2 NAPA 

4> ADDR LINE 3 CA 95303 

MAILING LIST ENTRV ITEM 6 ♦* 



<IF HO MORE ENTRIES. ENTER "END"> 

ENTER FIELD # TO CHANGE <0=SAVE> 



1> NAME WIDGET SUPPLV CO. 

2> ADDR LINE 1 555 BOGUS 

3> ADDR LINE 2 GERTIE 

4) ADDR LINE 3 TENNESSEE 38901 



MAILING LIST ENTRV ITEM 7 ♦* 



OF NO MORE ENTRIES. ENTER "END"> 

ENTER FIELD # TO CHANGE <0=SAVE> 



1> NAME END 
END OF PROGRAM 
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READING A DATA FILE 



After you have written information to a data file, in order to use it in 
another program you must be able to read the information off the tape and 
put it into memory.When the PET reads a data tape it transfers the data to an "in- 
put buffer" before sending the data on to memory: 



The input buffer holds up to 191 bytes of data. The data is read off the tape 
until the input buffer is full. When full, the PET temporarily stops the tape, 
and transfers the data to its proper location in memory. 

You can see this happen if you read large quantities of data at a time: the 
tape stops for several seconds while the input buffer "dumps" the data into 
memory. Once emptied, the tape will move again as more data is read. A 
flowchart of this process is shown in Figure 5-7. 

Reading a data file is similar to writing one. The four main steps are the 
same (except that the file is read instead of written): 

1 . LOAD the program file 

2. OPEN the data file 

3. Read the data file 

4. CLOSE the data file 

Step 1 : Like writing to the tape, you must code your program to read the 
data file. Code and type the program into PET memory and save it on tape. 

Later, the program may be loaded when needed. Remember that the commands 
to open, read, and close the data file are programmed within the program file. 

Once the program file is loaded, mount the data tape. Then execute the pro- 
gram using the RUN command. 

Step 2: When the data file is opened it must be referenced with the 
same physical device number and file name it was assigned in the write pro- 
gram. A different logical file may be assigned, and the secondary address code 
must be for the READ option. 




Memory 



PET 




Input 
Buffer 



Write Program 
OPEN 1,1,2,"DATA" 



Read Program 
OPEN 1,1,0,"DATA" 
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Figure 5-7. Read a Data File 



Step 3: To read a data file, load the program file.The program that you 
load should include statements that will open, read, and close the data file. 

There are two commands to read data from a tape: INPUT# and GET#. To 
read numbers and strings from a data file the INPUT# statement is used. The 
GET# statement reads one character at a time. 

Reading data from a data file using INPUT# and GET# is discussed in the 
following sections. 

Step 4: The last step closes the file after the data Is read. CLOSE the 
same logical file that you OPENed. 

OPEN 1,1,0,"DATA" 



CLOSE 1 
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A good way to CLOSE a file that is being read is to test for an End of File 
(EOF) with the STATUS WORD (ST). When the data file was written, an EOF 
marl< was written at the end of the file. When an EOF mark has been found, the file 
status equals 64 and the file may be closed. You may test for an EOF mark and 
close the file in one statement: 

IF ST=64 THEN CLOSE 1 

When ST equals 64, the file will automatically CLOSE. 
Reading Numbers with INPUT# 

Previously we wrote the program NUM.PRINT# to write the numbers 1 
through 10 on the data tape NUMBERS, where each number was written as a 
single record. Now we will write a program called NUM.INPUT# to read the ten 
numbers from the NUMBERS data file, and print them on the screen. 

To read numbers and strings from a data tape the INPUT# command is 
used. INPUT# reads one data item at a time, the data items being separated by a 
semicolon, comma, or carriage return. 

INPUT#f,var 

where: 

f is the logical file number (1-255, matching the file number in the OPEN and 

CLOSE command), 
var is the variable name(s) of the data to be read. 

The first few lines of NUM.INPUT# instruct the user to load the data tape. 
These lines are identical to the first three lines of NUM.PRINT#. At line 30 is the 
wait loop allowing the user time to mount the data tape. After mounting the tape, 
key RETURN; the program continues at the next line. 

10 PRINT":)** REfiD NUMERIC DflTfl TAPE ♦♦":PRINT 

20 PRINT"** MOUNT TftPE ; PRESS <RETURN> WHEN REflDV **":PRINT 
30 GET Pi* IF fl*="" THEN 30 

Before we can read any data, we must open the data file. Line 40 opens file #1, 
physical device #1, and secondary address (OPEN for read) with filename NUM- 
BERS. 

40 PRINT"** OPENING D(=lTf=l FILE **":OPEN 1 .. 1 . 0.. "NUMBERS" : PRINT 

Next, a FOR. . .NEXT loop is set up to read the first ten data items from the 
tape and print to the screen: 

50 FOR 1=1 TO 10 
60 INPUT#1 . N read N from tape 

70 PRINT N print N on screen 

80 NEXT I 
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The INPUT# command at line 60 reads one number at a time. The PET 
knows where the numbers are separated because carriage returns were 
written between each number input to the tape. The FOR . NEXT loop (or a 
similar command such as GOTO) is necessary because a single INPUT# com- 
mand stops reading when a carriage return is encountered. Without a loop or 
GOTO command to return to the INPUT# statement, only one number would be 
read. The PET reads both the number and the carriage return and sends them to 
memory so that the carriage return will be printed on the screen. 

After the data is read, the file must be closed before ending the program. 

30 PRINT"** CLOSING DflTfi FILE ♦♦".CLOSEl 
100 END 

Screen 



<CR> 
<CR> 
<CR> 
<CR> 
<CR> 
<CR> 
<CR> 
<CR> 
<CR> 

<CR> 



A complete listing of NUM.PRINT# is printed below, followed by a sample 
run of the program. The only file manipulation commands in this program are at 
lines 40, 60, and 90: OPEN, INPUT# , and CLOSE. 

NUM.INPUT# 

10 PRINT".">* READ NUMERIC DfiTfi FILE ♦♦"^PRINT 

20 PRINT"** MOUNT TAPE.: PRESS <:RETURN> WHEN REflDV" • PRINT 

30 GET fl*:lF M="" THEN 30 

40 PRINT"** OPENING DFlTFl FILE ♦*":OPEN 1 .. 1 .. 0. "NUMBERS" : PRINT 
50 FOR 1=1 TO 10 
60 INPUT#1..N 
70 PRINT N 
80 NEXT I 

90 PRINT"** CLOSING DRTfl FILE **": CLOSEl 
100 END 
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REfiD NUMERIC DflTfl TAPE ♦♦ 



MOUNT TAPE; PRESS <RETURN> WHEN REftDV ♦♦ 
♦♦ OPENING DflTft FILE ♦♦ 

PRESS PLflV ON TftPE #1 

OK 

1 

2 
^ 
4 
5 

e 

7 
8 
9 

10 

CLOSING DflTfl FILE 

Reading Strings 

The INPUT* statement also reads strings. In the "Writing Strings" section 
(page 247), we wrote the progrann WORD.PRINT* to write onto tape ten strings 
read fronn a DATA statement. The data file created was named NUMWORD. The 
data from NUMWORD looks like this on tape: 



<CR> ONE <CR> TWO <CR> <CR> NINE <CR> TEN <CR> 



To read NUMWORD, use INPUT# in your program to read the data. The 
difference from the previous program is that the input variable must be able to ac- 
cept strings. With only slight modification, you can change the READ NUMERIC 
DATA TAPE program to read NUMWORD. The changes occur at line 40 (name the 
data file), and line 60 (INPUT variable). The complete changed listing appears 
below, followed by a sample run of the program. 

To read data in which several strings have been written for each carriage 
return is no different from reading single strings nor as difficult as writing several 
strings per line, except for screen formatting. 

10 PRINT":>* READ NUMWORD DflTfl FILE ♦•":PRINT 

20 PRINT"** MOUNT TAPE.: PRESS <RETURN> WHEN READV'^PRINT 

30 GET A*: IF A*="" THEN 30 

40 PRINT"** OPENING DflTfl FILE **":OPEN 1 , 1 .. 6.. "NUMWORD" : PRINT 
50 FOR 1=1 TO 10 
60 INPUT#1.N* 
70 PRINT N* 
S0 NEXT I 

90 PRINT"** CLOSING DATA FILE **" •■ CLOSE 1 
100 END 
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REftli NUMWORD DflTfl FILE 



♦♦ MOUNT TAPE; PRESS <:RETLIRN> WHEN REftDV 
OPENING DFITR FILE 

PRESS PLFIV ON TAPE #i 

OK 



ONE 

TWO 

THREE 

FOUR 

FIVE 

SIX 

SEVEN 

EIGHT 

NINE 

TEN 

♦ ♦ CLOSING riflTfi FILE 

To read data in which several strings have been written for each carriage 
return is no different from reading single strings, and not as difficult as writing 
several strings per line, except for screen formatting. 

Returning to the NAMES. PRINT* program (page 248), recall that the data 
in data file NAME was written as three separate strings for each carriage 
return: F$, M$, L$, (first, middle, last). Each string had forced commas separating 
the strings so the three strings would not be garbled together. The data tape 
looked like this: 



HEADLY, GEORGE, JOYCE <CR> CAROL A. , SMITH <CR> 



The forced commas keep the data from being printed on the screen as one con- 
tinuous string. 

HEflDLVGEORGEJOVCE 
CflROLfl. SMITH 

This would also cause problems when trying to read the name as three strings, 
when on tape it is only one. 

The program to read the multiple strings in NAME is listed below. On tape, 
the commas act as string separators the same as does a carriage return, so at line 
60 the first, middle, and last names will be read separately. Line 70 formats the 
data to print on the screen with first, middle, and last name on one line, and a 
space between each. A sample run of the program follows the listing. 



260 



10 PRINT"r>* REflli NlilME DflTfi FILE ♦♦"■PRINT 

20 PRINT'>^ MOUNT TAPE; PRESS <:RETURN> WHEN REfiDV" : PRINT 

30 GET fl*:IF fl*="" THEN 30 

40 PRINT'>^ OPENING DflTPl FILE ♦♦":OPEN 1 . 1 . 0.. "NfiME PRINT 

50 FOR J=l TO 4 

60 IHPUT#1.F*^M*.L* 

70 PRINT F*.; " ")mi" ".;L* 

S0 NEXT J 

90 PRINT'>^ CLOSING DflTfl FILE ♦♦" •• CLOSE 1 
100 END 

♦♦ READ NAME DATA FILE ♦♦ 

♦♦ MOUNT TAPE; PRESS <RETURN> WHEN READV ♦♦ 
♦♦ OPENING DATA FILE ♦♦ 

PRESS PLAV ON TAPE #1 

OK 

ARNOLD J. SIMPSON 
BETTV S. CLARK 
HEflDLV GEORGE JOVCE 
CAROL ANNE SMITH 

♦♦ CLOSING DATA FILE ♦♦ 



Sample Program 

This sample program demonstrates how to read complex records of data 
from a data tape. This program, called MAIL. INPUT#, reads the mailing list data, 
which was written to data file MAIL by a program titled MAIL. PRINT* 
(MAIL. PRINT* listing, page 250). Each MAIL file record contains five fields; 
these fields are reserved for the record number, customer name, street, city, and 
state and ZIP code. Below is an example of a MAIL file record: 

♦♦ RECORD #6 ♦♦ field 1 

WIDGETS SUPPLV CO. field 2 

555 BOGUS AVE. fields 

GERTIE field 4 

TENNESSEE 38901 field 5 

Following is a program listing of MAIL.INPUT#. Type in MAIL.INPUT# and 
save it on a cassette tape. Then list the program to follow the step-by-step discus- 
sion. 
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MAIL INPUT* 

1 PR I NT " " 

20 PRINT"* ♦" 

30 PRINT"* RERD MAIL FILE W/ INPUT# 

40 PRINT"* *" 

50 PR I NT " **************************** " ■ PR I NT : PR I NT 

60 PRINT"** PRESS <RETLIRN> WHEN TPiPE IS LOfiDED ♦*»" 

70 GET fl*:IF fl*="" THEN 70 

S0 PRINT"** OPENING MAIL FILE **" : OPENl . 1 .. 0.. "MAIL" 

90 PRINT":*** REflHING MAIL FILE **" 

100 IF ST=64 THEN 9999 

110 INPUTttl.. I* 

120 INPUT#1.NM* 

130 INPLlT#l.fll* 

140 INPUT#1.. fl2* 

150 INPUT#1..A3* 

160 PRINT"»* RECORD #".:!*;" **" 
170 PR I NT " saW«««Hf=lME : " TAB < 9 NM* 
1 80 PR I NT " ADDR : " .: TAB < 9 > A 1 * 
1 90 PR I NTTAE < 9 ;:■ A2* 
200 PR I NTTAE 1 9 > .: A3* 
210 PRINT"JlI«««" 

220 INPUT "ENTER 'V' TO READ NEXT RECORD" .; A* : IF At="V" GOTO 100 
9999 PRINT".1!»* END OF MAIL FILE— PROGRAM TERMINATED" : CLOSE 1 : END 

The procedure for reading from data files is: 

1. Create and/or LOAD the program file. 

2. OPEN the data file. 

3. READ the data file. 

4. CLOSE the data file. 

The first five lines display a brief program description. The next two lines, 60 
and 70, instruct the user to mount the data tape. We are now ready to begin read- 
ing customer addresses. First the data file must be opened. MAIL is opened as 
logical file #1 on the cassette unit #1. This correlates to how it was saved in 
MAIL.PRINT#. The secondary address must be for READ. 
30 PR INT"** OPEN I NG MA I L FILE ** " : OPEN 1 .. 1 .. .■ " MA I L " 

Next, read the data. Line 100 uses the status word (ST) to check for the End 
of File mark. If ST=64 (indicating an End of File mark is found), then the file is 
closed at line 9999. The ST should be checked before data is read so that you do 
not attempt to do any unnecessary reading when there is no more data. 

Lines 1 10 to 150 read the data using INPUT#. Each field was printed to the 
tape with an individual PRINT#; the fields are separated by carriage returns so 
each field will be read in turn with an individual INPUT#. The variable or string 
names may be different when reading the data than when writing the data. For in- 
stance, data may be written to the tape as X$ and read back from the tape as A$, 
and the PET will not know the difference because the data variable name is not 
saved. 
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6 <CR> WIDGETS SUPPLY CO. <CR> 555 BOGUS AVE. <CR > GERTIE <CR> TENNESSEE 3890 



INPUT #1,1 

INPUT #1, NM$ ' 

INPUT #1, A1$ - 
INPUT #1, A2$ - 
INPUT #1, A3$ - 




read 



I 



read 



read 



When the PET reads data it stores it in the input buffer (memory), but 
nothing is written to the screen unless you tell it to. Therefore, you must tell 
the PET to print the data on the screen. Once the data is in the input buffer it may 
be printed to the screen in any format, as you can see in lines 160 to 200, where 
tabs and leaders were inserted. Line 210 moves the cursor down four lines. 

160 PRlHT"rj** RECORD 

1 70 PR I NT " atlMttleWflME : " .: TAB < 9 NM* 

130 PR I NT " RDDR : " .: TfiB O :> .: 1=1 1 * 

1 90 PR I NTTflB < 9 > R2f 

200 PR I NTTftE < S ::■ ..' 1=13* 

210 PRIHT"WWBK)" - 

The screen output looks like this: 
RECORD #6 

NAME: WIDGETS SUPPLV CO. 
flDDR: 555 BOGUS AVE. 
GERTIE 

TENNESSEE 33901 

After all four fields are printed, PET asks the user if the next record is 
desired: 

220 INPUT "ENTER TO REftD NEXT RECORD" .; fit : IF fl*="V" GOTO 100 

If the user wants the next record, the program goes to 100 and repeats the pro- 
cess until the status word (ST) signals an EOF. If the user does not wish to con- 
tinue, or if an EOF is encountered, the file is closed and the program ends. 

Figure 5-8 shows a flowchart of the MAIL.INPUT# program. A sample run of 
the program follows. 

As you run your own MAIL.INPUT# program, do not panic if the PET ap- 
pears to shut off for a few seconds. If you watch the cassette until you will see 
that the cassette tape is moving when it appears that the PET is stopped. What is 
happening is that the PET is reading the next 191 bytes of data into the input 
buffer before continuing on with the program, as was previously explained. Once 
the buffer is full, program control will return. 



263 



Start ^ 



Mount 
data tape 

~r 

OPEN 

data file 




Read fields 
w/ INPUT # 



i 



Print data 
on screen 




CLOSE 
data file 



Figure 5-8. MAIL.INPUT# 
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♦ READ MAIL FILE U/ INPUT# ♦ 

PRESS <RETURN:> when tope is LOfilDED 
OPENING MftIL FILE 

PRESS PLfiV ON TAPE #1 

OK 

REftDING MAIL FILE 
RECORD » 1 



NAME: ACME MANUFACTURING CO. 

ADDR: 1235 MAIN ST. 

DOWNTOWN 

IL 62501 



ENTER 'V TO READ NEXT RECORD 
RECORD # 2 



NAME: BENJAMIN FRANKLIN 

ADDR: 12 LIBERTY TOWER 

PHILADELPHIA 

PA 16524 



ENTER ' V • TO READ NEXT RECORD 
RECORD # 3 



NAME: NEIL ARMSTRONG 

ADDR: 597 SEA OF TRANQUILITY AVE. 

EARTHVIEW 

LUNAR 000000 



ENTER 'V TO READ NEXT RECORD 
RECORD # 4 ♦* 



NAME: MAMMOTH DISTRIBUTION CO. 

ADDR: INDUSTRIAL PARK 

CI TV OF INDUSTRV 

CA 92425 



ENTER ••V-' TO READ NEXT RECORD 



RECORD » 5 



NAME: 
flDDR: 



HENRV MUSCATEL 
819 OAK ST. 
NAPA 

CA 95303 



ENTER •'V TO READ NEXT RECORD 
RECORD # 6 t* 



NAME : 
ADDR : 



WIDGET SUPPLY CO. 
555 BOGUS 
GERTIE 

TENNESSEE 38961 



ENTER -V TO READ NEXT RECORD 

END OF MAIL FILE— PROGRAM TERMINATED 

Reading Numbers with GET# 

Another method of reading data files uses the GET# command. 

GET*f.var 

where; 

f is the logical file number (1-255, matching the file number in the OPEN and 

CLOSE commands), 
var is the variable name of the data to be read. 

GET* reads one character at a time from the data file and transfers it 
through the input buffer to memory. It is similar to GET, which accepts one 
character at a time from the keyboard and transfers it to the screen. 



Data File 



1 



Memory 



Input 
Buffer 
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Because GET# reads one character at a time and not a 191 -byte block at a 
time Wke INPUT#. it is able to read all file delimiters and anything else on the 
tape. This feature is especially helpful when you want to read everything that is 
written on a bad data tape to find the problem. GET# also allows a single 
character to be compared to a status or character value within programs. This will 
be demonstrated in the sample programs. 

The two sample programs in this section will demonstrate how to print out 
an entire file including all file delimiters, and how to print out the MAIL data file 
separated into records. 

Sample Program 1 

The following program, MAIL.GET#1, reads data file MAIL one character at 
a time and prints the contents of MAIL on the screen: 

MAIL.GET#1 

10 PR I HT " 71t******t*********'l>*'t***<t**<tt " 

20 PRINT"* 

30 PRINT"* READ MAIL FILE W.-' GET# ♦" 

40 PRINT"* ♦" 

50 PRINT "♦♦♦**♦****♦**♦♦*♦♦♦♦♦♦♦*♦♦♦♦" : PRINT -PRINT 

60 PRINT"** PRESS <RETURN> WHEN TAPE IS LOADED *♦" 

70 GET A*: IF A*="" THEN 70 

80 PRINT")!)** OPENING MAIL FILE ♦♦": PRINT : OPENl . 1 .. 0. "MAIL" 
90 PRINT"»** MAIL FILE *♦" 
100 IF ST=64 THEN 9999 
110 GET«1.X* 

120 IF X*=CHR*<:13> THEN X*=".^" 
130 PRINT X*; 
140 GOTO 100 

9999 FRIHJ "Vaam* END OF MAIL FILE — PROGRAM TERMINATED**" 
: CLOSE 1 -END 

Lines 10 through 90 are similar to the first lines of MAIL. INPUT* (page 
262). These lines introduce the program, give instructions for mounting the data 
tape, and then open the data file. 

Lines 100 through 140 control the reading of the MAIL data file and the 
printout of its contents on the screen. 

Line 100 checks for an End of File (EOF) status. If an EOF is not encountered, 
the data is read at line 1 10. In line 110, #1. is the file number and X$ is the varia- 
ble name assigned to the data strings. This statement will read the first character 
encountered and transfer it through the input buffer to memory. 

Then the program drops through to line 120. Line 120 compares the current 
value of X$ to a carriage return (CHR$(1 3)). If the value of X$ is CHR$(1 3), then the 
value of X$ is changed to a FULL GRID ■ . This change avoids printing a car- 
riage return, which would push the cursor to the next line; with the FULL GRID 
being printed, the whole file appears as one continuous line, representing how it 
is written on the data tape. An example of this will be shown in the sample run. 
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Next, the character is printed on the screen. You will see in the sannple run 
that a FULL GRID ■ appears for each carriage return. Also, nnake sure that a 
semicolon follows the variable in the PRINT statement, otherwise the data will 
only be printed down the first column of the screen. 

After one character is read from the tape and printed on the screen, the pro- 
gram is directed back to check the status and GET# another character. This pro- 
cess should repeat itself until ST=64 (the End of File). When the End of File is en- 
countered at line 100, the job of MAIL.GET#1 is complete. At line 9999 the pro- 
gram closes the data file and ends. 

Following is a sample run of MAIL.GET#1, using MAIL as the data file. 

MAIL GET4t=1 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦ REflD MfilL FILE W/ GET# ♦ 

♦ ♦ 



PRESS <RETURN> WHEN TAPE IS LOflDED 



OPENING MAIL FILE 



PRESS PLflV ON TAPE #1 

OK 



MAIL FILE 



1 WACME MANUFACTURING C0.JS1235 MAIN ST. 
M)OWNTOWN»1L €2501 M 2 BENJAMIN FRANKL 
IN»12 LIBERTV TOWERSF'H I LADELPH I A 16524 
m 3 «NEIL ARMSTR0NGSS597 SEA OF TRANQUIL I 
TV^ARTHVIEWm-LINAR 00000^ 4 mmmXH H 
ISTRIBUTION CO.SSINDUSTRIAL PARKSCITV OF 
INDUSTRV^A 92425^ 5 SHENRV MUSCATELH^! 
19 OAK ST.«NAPA»CA 95303*8 6 FIDGET SU 
PPLV C0.SS55 BOGUS AVE. MSERTIEm'ENNESSEE 
38901^ 



END OF MAIL FILE—PROGRAM TERMINATED** 
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Sample Program 2 



Next is the sample program MAIL.GET#2, to read MAIL and print the data 
on the screen divided into records. Below is a program listing of MAIL.GET#2. 

MAIL.GET#2 

10 PR I NT " :»♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ " 

20 PRINT"* 

30 PRINT"* READ MAIL FILE W/ GET# *" 
40 PRINT"* ♦" 
50 PR I NT " *•****♦♦♦♦♦♦♦***♦♦**♦***** " : PR I NT : PR I NT 

65 PRINT"** PRESS <:RETURN> WHEN TfiPE IS LOflDEB **": PRINT: 
70 GET fl*:IF 1=1*="" THEN 70 

80 PRINT"** OPENING MAIL FILE **": PRINT : OPEN 1 . 1 .. 0.. "MAIL" 
90 PRINT :PRINT"r»* MAIL FILE **":PRINT: 
100 IF ST=64 THEN 9999 
110 GET#1.. X* 

120 IF X*=CHRt<13:> THEN F=F+1 
130 PRINT K*.; 

140 IF F>=5 THEN GOSUE 160 
150 GOTO 100 
160 PRINT: 
170 R=R+1 

180 IF R>2 THEN PRINT "PRESS 'V FOR NEXT SET OF RECORDS" 

.; : INPUT A* 
1S5 IF A*="V" THEN R=0 
190 F=0 : PR I NT •• RETURN 

9999 PRINT".>!Wn»* END OF MAIL FILE — PROGRAM TERMINATED**" : 
CLOSE 1 :END 

Type in MAIL.GET#2 and SAVE and VERIFY it on a cassette tape. LIST the 
program. 

The first ten lines (10 through 100) of MAIL.GET#2 are identical to the first 
ten lines of MAIL.GET#1. This part of the program informs the user of the pro- 
gram's functions and procedures, and opens the MAIL data file in preparation for 
reading the data. 

The real difference between MAIL.GET#2 and MAIL.GET#1 is at line 120. If 
X$=CHR$(1 3), instead of changing the value of X$ from a carriage return to FULL 
GRID H , variable F — a carriage return counter — is incremented by one. When 
MAIL.PRINT# wrote to the data file, a carriage return marked the end of each of 
the five fields in each record. By keeping track of the number of carriage returns, 
MAIL.GET#2 counts the number of fields read to know when an entire record has 
been read. This can only be done by programming a conditional statement into 
the read program where GET#is used instead of INPUT#. Line 140 conditionally 
calls a subroutine if the specified condition is true. 
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Statement 160 prints blank lines between records. In statement 170, varia- 
ble R serves as a record counter. Line 180 tests to see if more than two records 
have been read. When three records have been read, the screen is full, and the 
user is asked if a new set of records is desired. If yes, the record counter R and the 
field counter F are initialized to zero before returning to read the next set of 
records at line 100. If more records are to be read, the program is sent to line 100 
to GET# the next character. This continues until the user inputs something other 
than a Y character or ST =64; at that time the file is closed and the program ends. 
Figure 5-9 shows a flowchart of the process of lines 100 to 190. 

Although GET# is similar to INPUT# in some ways, it is more difficult to for- 
mat the printout when using GET# if titles and indentation or spacing is desired. 
Like comparing X$ to CHR$(1 3), other field delimiters or characters would have to 
be conditionally tested if one desires more than a simple printout. 

At this time you should feel comfortable manipulating program and data 
files. The three file commands PRINT#, INPUT#, and GET# are surprisingly simi- 
lar. When using files, make sure that the same logical file numbers are used 
throughout the program, and that each logical file is opened before it is called and 
closed before the program ends. It is also good practice to display messages on 
the screen explaining what the PET is doing so the user always knows what is 
happening. 

Following is a sample RUN of MAIL. GET#2 reading MAIL. 
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^ ^ ^ ^ ^ ^ ^ ^ ^^^^ ^ ^^^^^ 

♦ ♦ 

♦ READ MOIL FILE 14/ GET# ♦ 

♦ ♦ 

PRESS <RETURN> WHEN TfiPE IS LORDED 
OPENING MfillL FILE 
PRESS PLflV ON TAPE #1 

OK 

MAIL FILE 

1 

ACME MANUFACTURING CO. 
1235 MAIN ST. 
DOWNTOWN 
IL 62i501 



2 

BENJAMIN FRANKLIN 
12 LI BERT V TOWER 
PHILADELPHIA 
PA 16524 



3 

NEIL ARMSTRONG 

597 SEA OF TRANQUILITY 

EARTHVIEW 

LUNAR 00000 

PRESS 'V FOR NEXT SET OF RECORDS?V 
4 

MAMMOTH DISTRIBUTION CO. 
INDUSTRIAL PARK 
CI TV OF INDUSTRV 
Cft 92425 



5 

HENRV MUSCATEL 
S19 OAK ST. 
NAPA 

CA 95303 



6 

WIDGET SUPPLV CO. 
555 BOGUS AVE. 
GERTIE 

TENNESSEE 38901 

PRESS 'V FOR NEXT SET OF REC0RDS7V 

END OF MAIL FILE — PROGRAM TERMINATED** 
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(line 1001 



GET* 
1 character 
from data tape 




(line 110) 



No ^xT;haracter ^ 
arriage retunj 

' 'dine 120) 
Yes 



Increment 
CR counter F. 
F = F+1 



I (Ime 1201 



Print character 
on screen 




me 130) 

No 

(line 150) ^>^^(|jne 140) 
GOSUB leotves 



Print one 
blank Ime 



(line 160) 



Increment 
record counter R 
R = R+1 



(line 170) 



Close 
data file 



c 



^ (Ime 9999) 



End 




Initialize 
record counter R 
R = 



Initialize 
CR counter F: 
F - 



(line 190) 



Figure 5-9. Format Printing Using GET# 
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ALTERNATE CHARACTER SET 

Another PET feature is its dual character set, made up of a "standard" and 
an "alternate" character set. For most keyboards the Standard Character Set 
consists of capital, or upper-case alphabetic characters, and graphic charac- 
ters. The Alternate Character Set is upper case alphabetic characters, 
shifted lower-case alphabetics and about half of the graphic characters. On 
the CBM, standard and alternate character sets are reversed. The difference 
between the two character sets occurs in shifted mode: 





Standard Character Set 


Alternate Character Set 


Unshifted 
mode 


Upper-case alphabetics 


Upper-case alphabetics 


Shifted 
mode 


Graphics 


Lower-case alphabetics 
some graphics 



The Alternate Character Set is put into effect by POKEing a special value 
into a specified location in memory. The contents of memory address 59468 
determines which character set is in operation. When memory location 59468 
contains the value 1 2 or 1 3, the Standard Character Set is in use. If location 59468 
contains any value from to 1 1, or 14 to 255. the Alternate Character Set is in 
effect: 

Contents of Memory Location 59468 Character Set in Operation 

0,1,2,3,4,5,6,7,8,9,10,11 alternate 
12,13 standard 
14,15. ..255 alternate 

For the purpose of simplicity, we will always use value 12 to designate the 
Standard Character Set and value 14 for the Alternate Character Set 

Figure 5-10 is a flowchart of the Standard/Alternate Character Set decision. 
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MEMORY 
address contents 

o| 



59468 




Standard 
Character Set 



Alternate 
Character Set 



Display 
Upper-case 
Alphabetics 
and Graphics 
(Shift) 



f Screen 



Personal 
Electronic 
Transactor 



Display 
Upper-case and 
Lower-case 
Alphabetics 
(Shift) 



f Screen 



Personal 
Electronic 
Transactor 



Figure 5-10. Standard/Alternate Character Set Decision 
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On PET power-up, value 12 is automatically POKEd into memory address 
59468 (value 14 for the CBM). activating the Standard Character Set. The PET 
begins and remains in this mode until programmer intervention changes the 
character mode. However, once the character sets are switched, the new 
character set is displayed until either 1) the PET is turned off; whereas on power- 
up the Standard Character Set is activated, or 2) the other character set is POKEd 
into effect. 



Turn 
Power On 



Standard 
Character Set 
Activated 



Activate New 
Character 
Set 



Screen 
Display 




Screen 
Display 



c 



End 



Changing character sets is done by POKEing a numeric value into memory 
location 59468. POKE a numeric value from to 1 1 or 14 to 255 into location 
59468: 

POKE 59468,12 activate the Standard Character Set 
POKE 59468,14 activate the Alternate Character Set 

To change from Standard to Alternate Character Set, type the following 
statement in calculator mode: 



POKE 59468,14 
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This will push value 12 out of location 59468 and POKE value 14 in. 




Character sets may be changed in either calculator or program mode. In 

calculator mode the change is immediate, whereas a programmed conversion re- 
quires the program statement to be run first. Whenever the character set is 
changed, the whole screen image is affected. For example, draw a graphic pic- 
ture of a spiral on the screen, as shown below. In calculator mode, POKE value 14 
into memory location 59468. The picture will instantly change to lower-case 
alphabetics and graphics. Figure 5-11 illustrates this sequence. 



a) Standard Character Set 


b) Change Character Set 


c) Alternate Character Set 


•o«o«o«o«o«o«o 


•o«o«o«o«o«o«o 


qwquqwqwqwqwq w 


• 


• 


q 


•o«o«o«o«o*o o 


•O*0«O«0*0*0 


qwqwqwqwqwqw w 


o • • 


o • • 


w q q 


• •o*o«o*o o o 


• •o«o«o«o o 


q qwqwqwqw w w 


o o«o«o«o* • • 


o o«o«o«o« • • 


w wqwqwqwq q q 


• • o o 


• • 


q q WW 


o oco«o«o*o« • 




w wqvjqwnwqwq q 


• • 


• • 


q q 




•o«o*o«o«o«o*o 


qwqwqwqwqwqwqw 




— * POKE 53468.14 <C:R:>- 


instant 






change 



Figure 5-11. Standard to Alternate Character Set 
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FEATURES OF THE ALTERNATE CHARACTER SET 

In alternate character mode, the 26 alphabetic keys will print lower- 
case alphabetics. Shifted punctuation and special symbol keys print the graphic 
symbols because there are no lower-case punctuation marks. The shaded keys in 
the compact keyboard diagram below are the keys which remain unchanged; 
some special symbols are rearranged on the full size keyboards. Notice that nearly 
the entire top and bottom rows and the entire numeric keyboard are not affected. 





m 


1 # J 


11 








m 


m 






id 


m 


E 


m 


m 


m 


m 


1 


□ 





711 


IS 


It 


B 
D 


f\ 


IE, 


SI 


1? 


H 
K 


□ 

L 


□ 


*< ll 

T 

u 

R U 
[ w J 


m 


It 




51 




.SI 


( M 


a 








f Off 1 
RVS 

[ OH J 


HJ 


liJ 


HJ 






M 


m 


(bun] 






Four keys in the upper right side of the keyboard print a unique special 
symbol when shifted, instead of the standard graphic character. These four 
are shaded in the diagram below: 



m 


// 


# J 


m 


m 


fa) 


& 1 


m 


m 


m 




( ■ 


□ 
1 W j 






1 D 


a 

[ Y J 




m 


f n 

I J 


n 1 
I p J 


171 


m 


1 s I 


m 


m 




fa] 

L,hJ 


m 


m 




m 


R ] 

E 

T 

R 

[ N J 


m 


r*i 

[ X 1 


m 


m 


m 


N 


M J 


m 


m 


7 J 


s 


1 OFF 1 

RVS 

[ OH J 




m 


1 m 


SPACE j 




ti) 


run] 

[STOPj 


B 



In shifted alternate mode, these keys print: 



n 
♦ 








B 

) 






□ 
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The cursor controls perform their normal movements in the alternate mode. 
However, some of the shifted cursor controls display a lower-case alphabetic 
symbol instead of their normal symbol. For instance, CLEAR is normally displayed 
as a , but in alternate mode it is displayed as a lower-case s. The chart below 
shows the change in the cursor symbols. 



CLR 
SCREEN 
HOME 


s 


CURSOR 

V_ 








INST 
DEL 


t 


<= 
CURSOR 








f OFF 

RVS 

ON 


r 


RUN 
STOP 



q 

(unaltered) 



Summary 

With a few exceptions, the Alternate Character Set may be summed up as 
follows: 

1. Value 14 is POKEd into memory location 59468 to activate the Alter- 
nate Character Set. 

2. The PET must be in shifted mode to print the lower-case alphabetics or 
special symbols. 

3. The Alternate Character Set may be divided into three categories: 

a. Upper-case alphabetics: keys A through Z 

b. Graphic symbols: all punctuation (except the four unique keys in 
the top right corner, as previously explained) 

c. Lower-case alphabetics and cursor control keys 



BASIC WORD ABBREVIATIONS 

You learned early in this book that the BASIC command PRINT could always 
be entered from the keyboard by the abbreviation ?, the question mark character. 
This was expanded by PET BASIC to the full word PRINT at the first and all subse- 
quent listings. 

Most of the BASIC commands, statements, and functions can similarly 
be abbreviated by the first two characters of the Iceyword, with the second 
character entered in shifted mode. With the standard character set, the sec- 
ond character appears as a graphic character. For example, the abbreviation for 
LIST appears as: 

L -., 

Select the Alternate Character Set with a POKE 59468,14 to have the second 
character appear as a lower-case letter, e.g.,: 

Li 
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This markedly improves the readability of the line being entered. PET BASIC 
makes no distinction between the two of them, however. Either one is expanded 
to the word LIST. 

Where a two-letter abbreviation is ambiguous (does St mean STEP or 
STOP?) the two-letter abbreviation is assigned to the most frequently used 
keyword, and the other word or words are either not abbreviated or are abbrevi- 
ated by the first three characters, the third entered in shifted mode. For 
STEP/STOP, STOP is abbreviated: 

St 

STEP is abbreviated: 

STe 

To abbreviate STEP, type unshifted S (capital S), unshifted T (capital T), and 
shifted E (lower-case e or graphic 3/4 TOP LINE HORIZONTAL B ). 

Following are a few sample input lines showing use of the two- and three- 
letter abbreviations wherever possible. All the abbreviated words are expanded to 
the full spelling when you list the programs. 

Po 594f8,14- (after RETURN) Abbreviation for POKE 59468,14 

10 Le A=10 

20 E=A An 14-^Ex{2) 

3D Dl C(5) 

40 Fo I-O TO 5 

50 Re C(I) 

6 He 

70 Da 1,6,2,4,10,5,16 

80 REs 
90 En 

L 1 -< Abbreviation for LIST 

10 LET (=1=10 

20 B=fl flHD 14+EXPC2::' 

:30 DIM C'::5> 

40 FOR 1=0 TO 5 

50 READ Ca> 

60 NEXT 

70 DfiTB 1 .. 6.. 2.. 4.. 10.. 5.. 16 
S0 RESTORE 
90 END 

Po 59468,12 -< (before RETURN) Abbreviation for POKE 59468, 1 2 

After keying RETURN at the last POKE command line (return to Standard 
Character Set), you will see the abbreviations show with graphics as the shifted 
characters. 
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A list of reserved words and their abbreviations, if any, is given in Table 
5-2. Note that the expansions from abbreviations for the two functions SPC and 
TAB include the left parenthesis. This means that if you use the abbreviation for 
either of these, you must not type in the left parentheses. For example; 

10?Sp(5) 

expands to: 

10 PRINT SPC<<5::' 

syntax error results from two 
left parentheses 

The correct key-in is: 

10? Sp5) 

This parenthesis rule applies only to the SPC and TAB functions and is a for- 
mat inconsistency you will have to watch for when abbreviating these function 
names. For all other functions, you key in both parenthesis. For example; 

10? Rn(l) 

expands to: 

10 PRINT RND(;i> 



Table 5-2. Keyword Abbreviations 



BASIC 
Keyword 


Abbreviation 


BASIC 
Keyvi/ord 


Abbreviation 


BASIC 
Keyword 


Abbreviation 


BASIC 
Keyword 


Abbreviation 


ABS 


Ab 


FRE 


Br 


NOT 


No 


SIN 


Si 


AND 


An 


GET 


Ge 


ON 




SPC( 


Sp 


ASC 


As 


GET# 




OPEN 


Op 


SQR 


Sq 


ATN 


At 


GOSUB 


GOs 


OR 




ST 




CHR$ 


Ch 


GOTO 


GO 


PEEK 


Pe 


STEP 


STe 


CLOSE 


CLo 


IF 




POKE 


Po 


STOP 


St 


CLR 


CI 


INPUT 




POS 




STR$ 


STr 


CMD 


Cm 


INPUT# 


In 


PRINT 


? 


SYS 


Sy 


CONT 


Co 


INT 




PRINT# 


Pr 


TAB( 


Ta 


COS 




LEFTS 


LEf 


READ 


Re 


TAN 




DATA 


Da 


LEN 




REM 




THEN 


Th 


DEF 


De 


LET 


Le 


RESTORE 


REs 


Tl 




DIM 


Dl 


LIST 


Li 


RETURN 


REt 


Tl$ 




END 


En 


LOAD 


Lo 


RIGHTS 


Ri 


TO 




EXP 


Ex 


LOG 




RND 


Rn 


USR 


Us 


FN 




MID$ 


Mi 


RUN 


Ru 


VAL 


Va 


FOR 


Fo 


NEW 




SAVE 


Sa 


VERIFY 


Ve 






NEXT 


Ne 


SGN 


Sg 


WAIT 


Wa 
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Another PET feature is the real-time cloclt. The PET clock keeps real 
time in a 24-hour cycle by hours, minutes, and seconds. The reserved string 

variable TIMES or Tl$ keeps track of the time. To set the clock, use the following 
format: 

TIMES = "hhmmss" 

where: hh is the hour between and 23. 

mm is the minutes between and 59. 
ss is the seconds between and 59. 

For hh. enter the hour of the day from 00 (1 2 am) to 23 (1 1 PM). The PET is on a 
24-hour cycle so that you can distinguish between AM and PM, unlike 12-hour 
clocks. The hours from 00 to 1 1 designate AM, and the hours from 1 2 to 23 desig- 
nate PM, returning to 00 at midnight. At midnight, when one 24-hour cycle ends 
and another begins, hh, mm, and ss are all equal to zero. 

When initializing TIMES to the actual time, type in a time a few seconds in 
the future. When that actual time is reached, press RETURN and the PET clock is 
set. 

TIME$="120150<CR> 

To retrieve the time any time after the initialization of TIME$. type the 
following in calculator or program mode: 

?TIME$ <CR> 
and the PET will display the time in hhmmss: 

?TIME* 
120200 

The PET clock keeps time until the PET is turned off. The clock needs to 
be reset when the PET is powered up again. 
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The PET also keeps track of time in "jiffies". A "jiffy" is 1/60 of a sec- 
ond. Reserved numeric variable TIME, or Tl, is a numeric variable which is auto- 
matically incremented every 1/60 of a second. TIME is initialized to zero on start- 
up, and is reset back to zero after 51,839,999 jiffies. TIME$ (hhmmss) is a string 
variable that is generated from TIME. To ensure greater accuracy tlie PET 
keeps track of time in jiffies by incrementing every 1 /60 of a second, instead 
of once every second. When TIIVIE$ is called to print the time in hours, 
minutes, and seconds, the memory converts jiffy time to real time. Notice 
that TIMES and Tl$ are not the string conversion of TIME and Tl but are numbers 
representing real time calculated from jiffy time (TIME, Tl). The conversion is done 
as follows. Each second is divided into 60 jiffies. One minute is composed of 60 
seconds. One hour is made up of 60 minutes. In summary, one second is 60 jiffies, 
one minute is 3600 jiffies, and one hour is 216,000 jiffies, as illustrated below: 



Jiffy = 


1 

60 X Jiffy 

60 Jiffies 










Minute 


= 60 X Second 
= 60 X (60 Jiffies) 
= 3600 Jiffies 










Hour = 


60 X Minute 

60 X (3600 Jiffies) 

216,000 Jiffies 





Second/60 = Jiffy 




Minute/60 = Second/60 = Jiffy 



Hour/60 = Minute/60 = Second/60 = Jiffy 



The following equations convert jiffy time (J) into real time divided into 
hours (H), minutes (M), and seconds (S). We can write a program to print the time 
from jiffies. 



10 J=TI 

20 H=INT<J,-'216000:> 



Calculate hours. 

Integer function takes only whole 
number. 



50 IF HO0 THEN J=J-H*21600 



If any hours, subtract number of 
jiffies in one hour by H to leave 
remaining jiffies. 



40 M=INT<..T/36@0> 



Calculate minutes. 

Integer function takes only whole 

number. 



50 IF M<:>0 THEN J=J-M*3600 



60 S=INT< J.''e0> 



If any minutes, subtract number of 
jiffies in minutes by 7 to leave 
remaining jiffies. 

Calculate seconds. Integer function 
takes only whole number. 
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5 PRINT"r3REflL TIME" : PRINT : PRINT : 

10 J=TI 

15 T*=TIME* 

20 H=INT<J/21600> 

30 IF HO-0 THEN J=J-H*21600 

40 M= INT < J/3600 > 

50 IF MO0 THEN J=J-M*3600 

60 S=INT<J/60) 

70 h*=right*<str*<:h>.2::' 

30 M*=R I GHT* C3TR* C M > . 2 > 
90 S*=R I GHTt < STR* C S > , 2 .:■ 

100 PRINT"H:M:S: ".;H*.; " : ".;M*.; " : ";S*.. "TIME*: "ijf. 
110 PRINT".ij!!M«".; :GOTO10 

Statements 70 through 90 convert the numeric answers into proper string form 
for tidy printing. Statement 100 prints both the real time calculated from the pro- 
gram, and TIIVIE$, the real time calculated automatically by the PET. Notice that 
the result is the same in both cases. 

To get an idea of jiffy speed and the conversion from the jiffy to the standard 
clock, type the following program into your PET. This program prints our the run- 
ning time of both TIME$ and TIME (Tl): 

5 REM **RUNNING CLOCKS** 

10 PRINT ".-RERL TIME: ": PRINT : PRINT "JIFFV TIME: •• 

20 FOR 1=1 TO 235959 

30 PRINT"a";TRE<13.^;TIME* 

40 FOR J=l TO 60 STEP 2 

50 PRINT"JSWW"jTflB<12;);TI 

60 NEXT J 

70 NEXT I 

The FOR.. .NEXT loop to print TIME (Tl) is nested inside the FOR.. .NEXT loop 
in TIMES because multiple jiffies are incremented and printed for each increment 
and print of a second shown in TIME$. 

20 FOR 1=1 TO 235959 

30 PRINT"M";TflB<13>;TIME* 

40 FOR J=l TO 60 STEP 2 

50 PRINT"»(KI";TfilB<12).;TI 

60 NEXT J 

70 NEXT I 

The FOR. ..NEXT loop for TIME increments by STEP 2 (every two jiffies) for 
two reasons: 1) the printing of 60 jiffies a second is too fast to read, and 2) the 
printing of each jiffy takes longer than its incrementations; this would delay the 
loop, so the printing of TIMES is slower than it should be. By incrementing and 
printing every other jiffy we can minimize this delay problem. Run this program 
and you will see that jiffies increment to 60 within each second. Run this program 
without STEP 2 in line 40 and see the time delay when printing TIMES- 

REAL TIME: 006704 
JIFFV TIME: 25500 
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Keeping time in jiffies is useful for timing program speed to test the 
efficiency of a program. A short program is listed below; 

10 PRINT"rMf*KEVBOflRD TEST**" PRINT 
20 FOR 1=32 TO 127 
30 PRINT CHR*<I>; 
40 NEXT I 

50 FOR J=161 TO 255 
60 PRINT CHR*<:J>.: 
70 NEXT J 

80 PR I NT : PR I NT: PR I NT "♦#END TEST**" 
If we were to time the execution of this program, it would tal<e three steps: 

1. Tl (or TIMES) is assigned to a variable constant near the start (or 
wherever you wish timing to begin). 

2. Tl (or TIMES) is reassigned to a different variable constant near the end 
(or wherever you wish timing to end). 

3. Subtract the first Tl assigned variable from the second. This will give 
you the amount of jiffy time it took to process the steps in between. 

The listing below shows the three added steps: 

Step 1 10 PRINT"."»f*KEVEOflRD TEST**" ^ PRINT 
15 fl=TI 

20 FOR 1=32 TO 127 
30 PRINT CHR*<I>; 
40 NEXT I 

50 FOR J=161 TO 255 
60 PRINT CHR*<J.'>J 
70 NEXT J 
75 E=TI 

Step 2 80 PRINT PR I NT PR INT" **END TEST**" 
Steps 100 PRINT :PRINT"TI = "iB-ft 

At line 15, variable A is set to the current value of Tl. 
15 fl=TI 

A = Tl [b00T762] 
A |b001762] 

Then, as the program is processed, Tl increments 60 times every second. At line 
75, B is set to the current value of Tl. 
75 E=TI 

B Tl |b001953| 

B |fe001953l 

Line 100 subtracts the first value of Tl (A) from the second (B). 
100 PRINT : PRINT "TI = ".. E-fl 
B ibO0 19531 
- A jfeO0 17621 
19? 
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The example shows that it took 191 jiffies to print the keyboard characters on the 
screen. Dividing jiffy time by 60 (the number of jiffies in a second): 



it took 3.1833 seconds or 191 jiffies to process the program. Below is a sample 
run of the program. 

**KEVEOfiRD TEST** 

! <>*+.-. /0 123456789 : ; <=>?eflBCDEFG 

H I JKLMNOPQRSTUVWXVZ C S 3 t*- ! " "<>*+,-./ 
0123456789 ■ i <=>?! iKfc.rih.S_ r^l I P- 

_ W *J"V-<tl ^-1 K ^L^^r~*-J»l /XO* llT"^ 

I ---J fetT I h , H_ r-HHI I r~mJk It 

**END TEST** 

TI = 191 

DIGITAL DISPLAY CLOCK 

The following program is a fun program. It is a variation of the PET digital 
clock using enlarged numbers through 9, created with the graphic characters. It 
prints out only the hour and minutes due to the size of the clock and the screen, 
but is very accurate. The program is long, as you can see, but it is made up almost 
entirely of PRINT statements to print the numbers. After keying in the program, 
watch it run. 

100 PRiHT'zmosmuos" i . ^ . 



130 H=INT<M/60> 
140 M=M-H*60 
150 T=H 
160 GOSUE500 

170 PRiNT-iuwa »M nnnni mm :iiiniB 

180 T=M 

190 GOSUB500 

200 PR I NT "nil".; 

210 GOTO110 

500 U=T-10*INT<T/10> 

510 T=INT<T/10> 

520 D=T+1 

530 GOSUB600 

540 D=U+1 

550 GOSUB600 

560 RETURN 

600 ON D GOSUE 1000. 1 100. 1200. 1300. 1400. 1500.. 1600. 

1700. 1800. 1900 
610 RETURN 



191 H- 60 = 3.1833 



110 s=inT';time/60> 

120 M=INT<S/60> 
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1002 
1003 
1004 
1005 
1 006 
1007 
1008 
1009 
1010 
1 100 
1 101 
1102 

1103 
1 104 
1105 
1 106 
1 107 
1 108 
1 1 01=9 
1 1 10 
1 200 

1201 
1202 
1203 
1204 
1 205 
1206 
1207 
1208 
1209 
1210 

1300 

1301 
1 302 
1303 
1304 
1305 
1306 
1307 
1308 
1 309 
1310 

1400 

1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1 409 
1410 



s 

si 

El 
St 



'a 



PRINT" BT 

PRiNT"ar 

PRINT" a ! 
PRINT" a ! 
PRINT" a ! 
PR I NT "a ! 
PRINT" a ! 
PR I NT "a ■ 
PR I NT "^a 
PRINT" 
RETURN 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
RETURN 
PRINT" a 
PRINT":r 
PR I NT "a 
PRINT" a 
PRINT" 
PRINT" 
PRINT" 

PRINT" sr 

PRINT"!r 
PR I NT "a 
RETURN 

PRINT" sr 

PR I NT" a'' 
PR I NT "a ! 
PRINT" 
PRINT" 
PRINT"! 
PRINT" 
PRINT"a ■ 
PRINT"i^a 



^a 

a 
a 
a 
a 
ar 



■■•■■■■■M" ; 
aiHMMM" ; 

aUBIHUM" 

aiMHauDa" 

!»■■■■■■[«" 

SIHMIHM" 

aHMIHM" 



■rilHHHni" ; 

IT rrrrrrrrn" 



IHIMMM" ; 

■■■■■■■■ni" ; 

MHHHKI" ; 
■■■■■■■■Da" 

(■■■■■■■DU" ; 
MHBHini" ; 
(■■■■■■■M"; 
■■■■■■■■M" ; 
liiBBHiani" ; 
; ! : I I II 1 1 1 1 1 " 



m 

sr ! 



lif ■■■■■«)" ; 
r^feianuna" ; 
^ai : iiiiHaHBU)" 
sri : mwnmwum" 

■■■■■■■■[«" ; 
W ■■■■■■■■M" ; 

' anmMiu"; 
paBHMiM" ; 

9 rrrrrrrm" 



PRINT" 
RETURN 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" sT 
PRINT" a 
PR I NT "a 
PR I NT "a 
PRINT" 
PRINT" 
RETURN 



r ^a aaaiBMani" 

sr aauaraiM" ; 
) ifMammna" ; 

^a aniMMM"; 
m isr aiaHaiaini" 

-^a wr rTTTTTrm" 



si- m 
aT: ■ 



a B 



a 
a 



■■■■■■■■M" ; 
■■■■■■■■Kl" J 
(■■■■■■■ni" ; 
liHUHDS" ; 
> ■■■■■■■■M" 
B I ■■■■■HIM" 

aiiliaiaiu)" ; 
^■■■■■■■Da" ; 
f ■■■■■■■[«" J 

rrrrrmn" 



1500 

1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 

1600 

1601 
1602 
1 603 
1604 
1605 
1606 
1607 
160S 
1609 
1610 

1700 

1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 

1800 

1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 

1900 

1901 
1902 
1903 
1904 
1 905 
1 906 
1907 
1 90S 
1 909 
1910 



PR I NT "a 
PR I NT "a 
PRINT" a 
PR I NT "a 
PRINT" 
PRINT" 
PR I NT "a ■ 
PRINT"'^a| 
PRINT" '^S 
RETURN , 
PRINT" af, 

PRINT" ar 

PRINT" a 
PRINT" a 
PRINT" a 
PRINT" a ; i 
PRINT" a I ! 
PR I NT "a I [ 
PR I NT ""^a 
PRINT" 
RETURN 
PR I NT "a 
PRINT" a 
PRINT" 
PRINT" 1 
PRINT" 1 
PRINT" 
PRINT"! 
PRINT"! I 
PRINT" 
PRINT" 
RETURN 
PRINT" 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT"!r 
PRINT"a ! 
PRINT" a ■ 
PR I NT ""^a 
PRINT" "^ia 
RETURN 

PRINT" ar 
PRINT" ar 
PR I NT "a ; ! 

PRINT"a I ■ 
PR I NT "'^a; 



: r aimnnmni"; 

Si, MMMHIM" i 
^ lUHHIiM"; 

'^a BIHHHIR}" ; 

a aiiHMiM"; 

^ ^ OlMMIHm" 

I wr : 1 1 1 1 1 1 1 1 r 



Hi linHHK)" ; 
"VinHMM" ; 

^a ■»■■■■■■!«" 

i IMMiniH"; 
"^Oi iHmHM"; 

"^■■■■■■■na" ; 
^a aiBHiHM" 

W .'TIIIIIIH" 



: aiMMiBM" ; 

r . PHHMIDQ" ; 

sr ! ^■■■■■■■M" ; 

ar M ' iiMHHKi"; 
i:^ i ^ ; ■■■■■■■■HI"; 
a i b| ' ■■■■■■■■i«" ; 

^ m : MHHMM"; 

as : 1 1 1 1 1 1 1 1 J" 



■a 
'a 



■■■■■■■■HI" ; 
■■■■■■■■IH".: 

^■■■■■■■ni" 

^■■■■■■■lU" 

t^aawaawmw" i 

^^■■■■■■n)" .: 
-^4 I ■■■■■■■■■M" 

sr ' ^■■■■■■■fi]" 

aria^^i^^lM" ; 

■r I : 1 1 1 1 1 1 in" 



-^a 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT" 

RETURN 



i 

a ^ 
■^a 



■■■■■■■■R]" ; 
■■■■■■■■DP" 

^■■■■■■■na" 
^ ^■■■■■■■[ig" 

i a^^a^^^Hfl" ; 
sr a^^^^^^^M" 
■■■■■■R]" ; 

: 1 1 1 1 1 1 1 11" 



POKE TO THE SCREEN 



The programming of individual characters anywhere on the screen is most 
effectively done with the POKE statement. POKE allows a character to be 
placed anywhere on the screen by POKEIng Its character value into a screen 
location in memory, which POKEs it onto the screen. 

Memory Screen 

Poke a ♦ 
in Location X 
on the Screen 



location X 

The PET screen is like a grid of 1000 squares: 40 columns by 25 rows: 

columns 

1 I I I 1 1 I 1 1 I 1 1 I I I M 1 40 




rows 



961 



1000 



One character may be displayed in each square. All 1000 screen locations are 
assigned an address and space in memory. IVIemory screen space begins at 
address 32768 for square 1 (row 1, column 1) and ends at address 33767 for 
square 1000 (row 25, column 40). Memory address 32768 is screen location 
(1,1), address 32769 is screen location (1,2), etc. Figure 5-12 shows the correla- 
tion between PET screen locations and their corresponding memory space and 
addresses. 



CALCULATING THE SCREEN ADDRESS 

To find the screen address in memory for each screen location, manual 
counting of each square is unnecessary. The following equation is a simpler and 
more efficient method to calculate the memory address: 

Memory Address of Screen Location = 32768-l-(column-1)-l-(40 (row-)) 

Enter the column and row numbers of any screen position into the equation to 
find its memory address. To demonstrate, enter the values 5 and 3 to find the 
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a. Screen Locations 



20 



40 



b. Coordinate Locations and Memory Address 
32768 ^"'^"""^ 32807 



60 



961 



1000 



25, 1 
33728 



40, 25 
33767 



c. Memory Address of Screen Locations 
15 8 



-32768 
32769 
32770 
32771 
32772 
32773 
32774 
'32775 
^32776 



Contents of row 1, col. 1 
Contents of row 1, col. 2 



Contents of row 1, col. 8 



32852 Contents of row 3, col. 5 



Figure 5-12. Screen Locations and Memory Addresses 
nnemory address for the screen location at column 5, row 3 (5,3): 

5 



= 32768+(COL-1)+(40-(ROW-1)) 
= 32768+(5-1)+(40-(3-1)) 
= 32768+4+ (40-2) 
= 32768+4+80 
= 32852 - 



Columns 



40 



25 



25 



The nnemory address for screen location (5,3) is 32852. 

This equation makes it possible to POKE characters to the screen with- 
out Icnowing any more than the column and row number of the location to be 
POKEd. Recall the format of the POKE statement: 

POKE A,x 

where; 

A is the screen address. 

X is the character or variable to be POKEd into A. 
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By replacing A with this equation, the PET will calculate the screen address itself. 

POKE32768+(COL-)+(40-ROW-1),X 
POKE A .X 

For instance, if COL (C) and ROW (R) were input as 5,3, and X as ♦ then a 
spade would be POKEd at screen location (3,5), address 32852. 

10 INPUT C.R..X 

20 POKE 3276S+';C-1> + <40*<:R-1:'>.. X 
= 32768+(COL-1)+(40-(ROW-1)),X 
= 32768+(5-1)+(40-(3-1)).X 
= 32768+4+(40'2),X 
= 32768+4+80.X 
= 32852,X 



.1 



Although the above equation is useful when you do not know the exact 
screen address, you should not always incorporate that long equation into your 
programs. It is much neater and more concise if you use the aforementioned for- 
mula to calculate the screen address outside of the program, and then use the 
screen address using POKE inside of the program: 

POKE 32852,X 
or 

A=32852 
POKE A.X 

Variables are acceptable in the POKE command, as long as the variables stay 
within the proper limits; 



1. POKE 32768+A,X 



2. POKE A.X 



where A is a number between and 999 inclusive 
(32768+999=33767). 

where A is a number between 32768 and 33767 
inclusive. 



Using variables to represent the screen address is practicable when POKE- 
ing to a repeating sequence of screen spaces. For example, the two programs 
below POKE the value of X ten spaces apart across the screen. This is a much 
more efficient method of printing than programming several PRINT statements 
and cursor movements. 



10 (=1=32768 
20 POKE 1=1. X 
30 l=l=fil+10 
40 IF l=l<=33767 



or: 10 POKE 32768.. X 
20 fl=l=l+10 
30 POKE 3276S+fl.X 
GOTO 20 40 IF fl<=1000 GOTO 
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GENERATING RANDOM NUMBERS 



Random numbers are generated on the PET using an algorithm on a 
starting number, or seed, to begin a sequence of numbers. The same seed al- 
ways gives the same sequence of numbers. 

When the PET is powered up, the initial seed is always the same so that 
the random number sequence is likewise always the same. The display below 
shows a typical first five numbers that will appear on referencing the RANDOM 
function RND(arg) after power-up. 

#«# COMMODORE BRSIC »«# 

7167 BVTES FREE 

RERDV. 

FOR 1 = 1 TO 5 - 7 RND<0:NEXT 
RUN 

. 880969862 

. 355265655 

.659512252 

.803285178 

.546991144 
REflDV. 

You can have the same sequence generated each time (this is very 
helpful in debugging situations) by starting from the same seed, or you can 
program the PET to generate random numbers from different sequences by 
giving different seeds. 
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To generate the same sequence, select a negative number and all RND 
with this number before beginning to fetch the random numbers. The following 
program prints the first five random numbers for seeds -1, -2, -3,... -100. 

10 FOR I=-l TO -100 STEP -1 
20 X=RND<i:) : PRINT I 
30 FOR .J=l TO 5 
40 PRINT RNIKi:) 

.50 NEXT J PRINT: FOR k=0 TO 1000 NEXT K 

60 NEXT I 

RUN 

-1 

. ?3503087£ 
. 35438S9S3 
. 747932106 
. 16562769 
. 62863439 



.271319872 
. 1431 1354 
. 511223365 
, 367604656 
. 148456903 

■3 

. 2359S1913 
. 3651 13894 
.905614705 
. 916307965 
. 987458745 



Note here that the "1" in RND(1) on line 40 can be any positive, non-zero 
number; it doesn't matter which one. On line 50, the PRINT is to give a blank line; 
the FOR K loop is to pause between number sets. 

Suppose you select -40 as a seed; your program might have statements 
like the following: 

;0 X=RNri':;-40::' : REM START SEED 

20 fl=RNria>: REM FETCH fl RANDOM NUMBER 

150 MX=RND<1.): REM FETCH ANOTHER RANDOM NUMBER 

You probably don't have any use for the seed value assigned to X, but an 
assignment statement is the easiest way to include a legitimate reference for RND 
(-arg). Each time statement 10 is executed, it will restart the random number 
sequence at the same beginning. 
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To generate different random numbers at each RND use, you need to have 
some way of generating a random seed. (You can't call RND to doit!) A convenient 
way of getting a pseudo-random seed on the PET is to use the current jiffy count, 
Tl: 

10 X=RND<:-TI>: REM START SEED 

Here you will get a different random sequence started each time statement 
10 is executed. 

A more nearly pure random seed* can be obtained by using RND {-RND(O)). 
For example: 

10 X=RND<-RND<e::':> : REM STRRT SEED 

Here again you will get a different random sequence started each time statement 
10 is executed. 

In the programs that follow, -Tl is used, as it is compatible with both old and 
new ROMs. If you have the new ROMs, you can use-RND(O) in place of -Tl. 

You will have to convert the random number, which is returned as a 
number between and 1 , to whatever range you want the random number to 

be in. Say you want numbers from 1 to 6 (as in one die number of a dice game). 
You will need to multiply the random number by 6: 
Si^RND^l.) 

This gives a floating point number in a range just greater than but just less than 
6 (0<n<6). Add 1 to get a number in the range 1 <n<7: 

6*RND<1>+1 

Then convert the number to integer, which discards any fractional part of a num- 
ber, returning the number to the range 1 to 6 but in integer form: 
iht<6*rhD';i::'+i:j 

or 

fl,'!i'=6*RNri<i;:' + l 

The general cases for converting the RND fraction to whole number 
ranges are shown below. Note that with the INT function, these formulas handle 
numbers in the integer range ±32767. 

INT((n-l-1)-RND(1)) range to n 

INTln-RNDd)-!-!) range 1 to n 

INT((n-m+1)*RND(1)+m range m to n 

The formulas for ranges beginning at or 1 are just simplified versions 
derived directly from the general case of range m to n: 

where m=0 INT({n-m+1)>RND(1)+m) 
INT((n-0+1)*RND(1)+0) 
INT((n-l-1)-RND(1)) as shown above 

where m=1 INT{(n-m-(-1)«RND(1)+m) 
INT(n-1-l-1).RND(1)+1) 
INT(n.RND(1)-l-1) as shown above 

'according to the PET manufacturer 
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The-1 to-100 display program shown earlier, which displayed five numbers 
in the range to 1 for each seed, can be changed so that the random numbers 
returned by RND will be put into a a selected range. The program below is the 
same as the previous one except that line 40 is changed to put the random num- 
bers into the range 1 to 6; the loop at line 30 has a TO index of 1 to print the first 
ten numbers of each series. 

10 FOR I=-l TO -100 STEP -1 
20 X=RND<I? : PRINT I 
30 FOR J=l TO 10 
40 PRINT INT<6*RNDCl.> + i:) 
50 NEXT J PRINT: FOR k=0 TO 1000 NEXT K 
60 NEXT I 
RUN 
-1 
5 



1 
4 
5 
6 
1 
1 
4 



1 
4 
3 
1 

5 
4 



-3 

■si' 

6 
6 
6 
6 
6 
5 
1 
5 

As in the original program, the sequence for -1 will always be the same, the 
sequence for —2 will always be the same, etc. To adjust this program to start at a 
random seed, change I in line 20 to -Tl (or, for the new ROMs, -RND(O) may be 
used). 

The program below shows the use of-TI to generate a random seed. It is the 
same genre of program as before, but it has been modified to calculate numbers 
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in the range m to n (as shown by the previous formula). In this program, the values 
of m and n are set in line 10 for a given program run. Note that these values can be 
negative. In the following example, the printout is an unending sequence of ran- 
dom numbers between-50 and +50. (Press STOP to end the program.) A different 
sequence of numbers will be printed each time the program runs, since -Tl pro- 
vides a random seed. 

Two other changes have been made for the previous program: 1) the X 
value returned from RND(-TI) is printed instead of the Tl value, and 2) the need for 
the K-variable wait loop is eliminated by printing sets of numbers across the line 
in continuous line format, which slows the display scrolling compared to single- 
column printing along the left-hand side of the screen. 

10 M=-50:N=50 

20 X=RND<:-TI> : PRINT X 
30 FOR 1=1 TO S 
40 cy.= < H-M+ 1 > *RNri < 1 > +M 
50 PRINT CX:. NEXT I 
60 PRINT -GOTO 30 



RUN 






8. 276.330S5E-06 


-14 


9 - 


•34 -35 -47 -44 28 31 


2S> 


-S - 


•36 -28 -42 -28 15 14 




-13 


3 -8 8 41 19 -43 


35 


12 


24 -7 -7 -21 -47 1 


-32 


-49 


7 -49 28 -22 -17 -24 


-12 




27 1 11 9-18 35 


48 


49 


1 34 -46 -29 -43 29 


-18 


5 - 


■30 2 8 -28 -13 -23 


48 


-15 


-12 -45 26 44 -25 2 


-Cl 


4 2 


:7 50 33 -16 -43 -15 


20 


20 


17 43-18 -48 -38 24 


-16 


43 


-50 36 -38 5 11 25 


-30 


6 - 


•25 -47 32 10 42 -21 


-47 


-38 


-28 -8 16 -20 42 -4 


-34 


36 


-17 27-8 -49 -6 -35 


-19 


19 


-35 48 -42 36 -25 2 


-49 


37 


47 38 -20 -25 32 -50 


-5 - 


-35 - 


35 17 -41 36 -19 4 


33 


-20 


45 -7 43 -4 -33 -10 


1 


27 - 


■39 -14 -33 -6 4 10 


-5 


17 


2 49 -40 -5 32 


-50 


32 


-24 -37 -38 22 -13 -27 


-24 


-30 


35 10 6 16 -50 49 


-49 


50 


43 38 -21 47 -43 28 




-35 


-18 -5 27 -46 -14 23 


-49 


-45 


27 7 -35 1 46 -25 


-S 


20 - 


S -12 -46 -31 -17 -18 


-47 


47 


-49 18 47 17 40 -13 


-40 


48 


-41 -33 5 -14 -46 45 




-37 


22 17 42 33 -31 49 


8 - 


-4 36 37 11 IS 29 25 


- 


-1 2 


' -16 32 -29 -31 33 


—9 ~ 


-41 - 


■4 47 12 -22 9 -48 


-40 


32 


15 32 -50 3-9 19 
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To illustrate different number ranges, change the values of M and N in line 
10. For example, make M=l and N=6; this will generate an unending sequence 
of random numbers between 1 and 6. 

A quick scan of the display above shows that numbers repeat within the 
first 100 generated. That is, every 101 numbers will not sort from -50 to +50 with 
every number present and no duplications. This is fine in, say, a dice game where 
you take the rolls as they come. For other random number uses, however, you 
may need to develop random numbers in a certain range where every number 
is accounted for and tliere are no duplications. An example is sorting a deck 
of cards. Here you need to pick a card, and when that card has been picked it can- 
not be picked again during the same deal. 

The program below shows one way to program shuffling a deck of cards 
on the PET. It fills a 52-element table D%* with the numbers 1 through 52 in a 
random sequence. The cards can be pegged to the random numbers in any way, 
such as; 

A=1. 2=2, 3=3. ., Q=12, K=13 
Spades=0, Hearts=1 3, Dlamonds=26, Clubs=42 

With this scheme the Ace of Spades = 1 -1-0=1 , the Queen of Spades=1 2-1-0=1 2, 
The Three of Hearts=3-I-1 3=1 6, etc. 

In the shuffle program, a 52-element flag table FL keeps track of whether a 
card has been picked or not. PRINT statements are inserted to print out the seed 
value, followed by the numbers in a continuous-line format. Note that exactly 52 
numbers are printed out and that no number is repeated. Each program run will 
produce a new random sequence. 

10 BIM FLf:52>..riK<52:J 

20 ?--;=RNrK-TI> : PRINT H 

30 FOR 1=1 TO 52 

40 C";=52*RNrKl.-) + l 

50 IF FL<:C."OO0. GOTO 40 

60 d;-; < I ) =cy. ■ fl < c*; > = i 

70 PRINT C'ii 
80 NEXT I 



RUN 










1.1 85866 13E-05 










48 40 13 37 


50 


43 


46 31 


49 44 


23 38 25 11 


9 


35 


32 30 


24 41 


26 5 6 1 45 


10 


21 


14 42 


: 20 15 


34 IS 52 47 


1'' 


16 


8 19 


33 36 4 


17 3 22 27 


29 


28 


39 2 


51 12 


RUN 

1.01154728E-06 










14 35 52 50 


26 


48 


27 36 


34 25 


18 20 41 33 


39 


7 


46 24 


23 28 


9 3 12 43 2 


31 


44 


4 1 


32 37 3 


40 22 45 4 


8 4 




i9 16 


11 6 10 


29 9 51 17 


8 


15 


38 5 


21 13 



'Element is not used. 
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Note that the program runs more slowly as it nears the 52nd number and is 
especially slow on the last card; this is because it has to fetch more and more ran- 
dom numbers to find one that has not already been picked. A simple routine such 
as this has much room for improvement, of course. It can be speeded up just by 
finding the last number in the program from the table rather than randomly. 

A further example of RND use illustrates the difference in having a faster 
selection routine. This program also handles random numbers larger than the 
integer range allows. 

The following program is a modification of program BLANKET, the display 
program developed in Chapter 3. Instead of printing the display character in con- 
tinuous-line format, this program fills the screen by randomly POKEing the 
character into the 1000 positions of the screen. 

Here is the first version. 

10 REM *.****** BLANKET ******* 
20 REM RANDOM DISPLFIV OF ONE 
30 REM CHflRflCTER ENTERED FROM THE 
40 REM KEVEORRD 

50 REM ******************************* 

90 PRINT"HIT B KEV OR <R> TO END".: 

100 GET C.*:IF C*="" GOTO 100 

105 IF C*=C:HR*<.13:) GOTO 170 

110 PR I NT ".T'.; :REM CLEAR SCREEN 

120 X=RND<:-Ti:) :REM START NEW SEED 

125 c=';asc<c*.')Andi2s>/2 or c:ASC<:C*>AND63> 

127 A=1000*RNDO >+3276S 

130 POKE fl.C -REM DISPLAY CHAR 

140 GET D*:IF D*="" GOTO 127 

150 C*=D* 

160 GOTO 105 

170 END 

The program is the standard BLANKET program through line 1 10, inputting 
a new character and clearing the screen. Line 120 stores a new seed in prepara- 
tion for a random display sequence on the screen. Line 125 converts C$ to its 
equivalent POKE number as in BLANKET Program 10 (see Appendix C). Line 127 
calculates a random screen address in the range 32768 to 33767; using the RND 
range formula with m=32768 and n=33767, line 127 was derived as follows: 

(n-m + 1)«RND(1)+m Range formula 

(33767-32768-l-1)-RND(1)+32768 as used in line 127 
= 1000.RND(1)-H32768 

Neither the INT function nor an Integer variable (which would have been 
A%) can be used, because the screen addresses begin just beyond the maximum 
integer value of 32767. Fortunately the POKE function, which is where the screen 
addresses will be used, simply discards any fractional portion of a real number ad- 
dress presented to it. (For other applications when you are dealing with random 
numbers outside the integer range, you will have to check that the floating point 
equivalent provides the intended range.) 
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The first version of the program above randomly fills the screen with the 
keyed-in character. It does this by simply POKEing to random screen locations. It 
may POKE many times to the same location when other locations are not yet 
filled, and it continues to POKE even after the screen is filled until a new character 
is keyed in. 

When the program is run, about half the screen positions quickly fill with 
the character. Then character placement slows down more and more until at the 
end, when the screen is almost filled, and remaining positions are filled very 
slowly. It takes about three minutes to completely fill the screen with this version 
of the program. 

The program is operating at the same speed throughout, but it doesn't get 
much work done towards the end because many of the positions that it POKEs to 
are already filled. The program appears to slow down because a POKE (or PRINT) 
of a character over the same character has no visible effect. 

The program can be speeded up a good deal by eliminating the superfluous 
POKES to screen positions that are already filled. A new version of program 
BLANKET does this. 

Rather than calculating a number in the same range all the time and discard- 
ing, or in this case re-POKEing, the duplicate numbers, the new program 
decreases the range of numbers generated to correspond with the number of 
items left to operate on. It does this by keeping track of the screen positions re- 
maining to be filled in a table and generating a random number within the range 
of table indexes yet to be POKEd to. The POKE address itself is gotten from the 
contents at the table index. 

5 REM RANDOM VERSION 2 

10 REM ******* B L 1=1 N K E T ******* 
20 REM RftNDOM DISPLftV OF ONE 
30 REM CHflRflCTER ENTEREB FROM THE 
40 REM KEVBOFIRD 

50 REM **************.***************** 

70 DIM T<939> 

80 GOSUE 200 REM INITIALIZE TABLE 

90 PRINT "HIT A REV OR <R:> TO END"; 

100 GET C*:IF C*="" GOTO 100 

105 IF C*=CHR*<13:) GOTO 170 

110 PRINT":]".; :REM CLEAR SCREEN 

120 X=RND<-TI> REM START NEW SEED 

125 c=<:asc<c«:>andi2s:)/2 or <FiSC<ct>mi>€.3:) 

126 FOR N=999 TO STEP -1 

127 A.':;=<N+1.-J*RND<1> : REM PICK AN ELEM 

128 A=T<:A^'> +32768 -REM FORM POKE ADDR 

1 29 tp=t a;-: > ■ r < a;-; > =t < iO T < n > =tp ■ rem swap elements 

130 POKE A.. C :REM DISPLAY CHAR 
140 NE,XT N 

160 GOTO 100 
170 END 

199 REM **SUER TO INITIALIZE TABLE** 

200 FOR 1=0 TO 999:T<I>=I -NEXT 
210 RETURN 



298 



In this program, lines 5 through 50 are the standard header. The Table T, 
used to hold the 1000 screen position indicators, is dimensioned in line 70. 

At line 80 an initialization subroutine is called that places the numbers 
through 999 into corresponding elements of Table T. T{0) will contain 0, T(1) will 
contain 1, ... T(999) will contain 999. The elements would not have to be filled 
with consecutive numbers since they are to be picked randomly, but this is the 
easiest way to program the fill loop. In fact, the table will be in order only the first 
time the program is run after loading. Lnes 90 through 125 are exactly the same 
as in the earlier version. 

Lines 126 through 140 form a FOR.. .NEXT loop for filling the 1000 screen 
locations with the keyed-in character. Line 127 picks a random table index 
A%from the remaining unfilled range of to N. The formula (N+1)*RND(1) is taken 
from the boxed formulas given earlier. Line 128 forms the POKE address A as the 
sum of the T table element whose index was picked by line 12'7, plus the begin- 
ning screen memory address of 32768. Line 129 exchanges the picked table ele- 
ment T(A%) with the highest active table element T(N) via a temporary location 
TP. Line 1 30 displays the character at the random screen location. The NEXT N at 
line 140 decrements the pointer N so that the used screen address just swapped 
into T(N) is not picked again during the current program run. 

5 REM RflNDOM VERSION 2fl 

10 REM #***#*♦: BLANKET ******* 
20 REM RflNDOM DISPLflV OF ONE 
30 REM CHflRflCTER ENTERED FROM THE 
40 REM KEVBOflRD 

50 REM ***************.**************** 

70 DIM Tl<249>.. T2<249>.. T3<249>.T4';24S'> 

75 T=4 :REM NUMBER OF TABLES 

76 N=250 :REM NO OF ELEMENTS 

S0 GOSLIB 200 :REM INITIALIZE TABLES 

90 PRINT "HIT A KEV OR <R> TO END".: 

95 N 1 =N : N2=N •■ N3=N : N4=N 

100 GET C:*:IF C#="" OOTO 100 

105 IF C*=CHR*<13> GOTO 170 

110 PR I NT "n".; :REM CLEAR SCREEN 

120 K=RND<-TI> :REM START NEW SEED 

125 C=<:ASC<C*)AND12S:j/2 or tASCCCt^ANDSS;' 

12e for L=1TO1000 :REM 1 FOR EACH SPOT 

127 TK=T*RNDa> + l : REM PICK A TABLE 

128 ON ry. GOSLIB 300.. 400.. 500.600 : REM GO PICK AN ELEMENT 
130 POKE A.. C :REM DISPLAY CHAR 

140 NEXT L 
160 GOTO 95 
170 END 

199 REM **SUER TO INITIALIZE TABLES-** 

200 FOR 1=0 TO N-1 :TlCi;j = I - NEKT 

2 1 FOR I =0 TO N- 1 : T2 I > = I +250 • NEXT 
220 FOR 1=0 TO N-1 : T3 a:.-' = 1+500: NEXT 
230 FOR I =0 TO N- 1 : T4 < I > = I +750 : NEXT 
240 RETURN 

299 REM **SUEROUTINE FOR TABLE Tl** 
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300 N1=N1-1 

305 REM IF EMPTV.. 00 TO ANOTHER TfiBLE 

310 IF NK0 THEN ON I NT C 3*RNri C 1 ^ + 1 :■■ OOTO 400.. 500.. 600 
320 fl,-.'=<Nl + l>*RHria> :REM PICK AH ELEM 
330 I=I=T1 ft;: ..'+32768 -REM FORM POKE flDDR 

340 TP=T 1 < ft-; > : T 1 < ft-: .:■ =T 1 C N 1 > : T 1 N 1 > =TP : REM SWfiP ELEMENTS 
350 RETURN 

399 REM **SUEROUTINE FOR TABLE T2** 

400 N2=N2-1 

410 IF N2<0 THEN ON I NT < 3*RND C 1 .■' + 1 GOTO 300.. 500.. 600 
420 ft';= < H2+ 1 .) *RND < 1 > 
430 ft=T2<fl';::'+3276S 

440 TP=T2 < ft'; ::■ : T2 ■:: ft"; > =T2 ■:; N2 .J : T2 C N2 > =TP 
450 RETURN 

499 REM **SUEROUTINE FOR TABLE T3** 

500 N3=N3-1 

510 IF N3<0 THEN ON I NT < 3*RNri C 1 + 1 ::■ GOTO 300.. 400.. 600 
520 ft';= ■:: N3+ 1 > *RNrr < 1 .:■ 
530 fl=T3';flr';'> +32768 

540 TP=T3';A>i> :T3<ft;;>=T3<:N3> :T3(:N3>=TP 
550 RETURN 

599 REM **SUEROUTINE FOR TfiBLE T4** 

600 N4=N4-1 

610 IF N4C"0 THEN ON I NT C 3*RND 1 > + 1 .■■ GOTO 300.. 400.. 50© 
620 m= >: N4+ 1 > *RND C 1 > 
630 A=T4i::fi;:;> +32768 

e40 TP=T4 B'-: ;< ■ T4 < ft.--: > =T4 C N4 > : T4 C N4 .:■ =TP 
650 RETURN 

This program is not much longer than the first version, yet it is a good deal 
faster. It fills the screen in approximately 45 seconds (compared to a minimum of 
three minutes for the first version). 

A remaining difficulty, which you will have already noticed if you ran the 
program, is that there is a noticeable wait while the initialization subroutine runs, 
before the HIT A KEY message is displayed. 
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A final modification to the program will show how this kind of program ac- 
tivity can be hidden in a screen display. The following program intersperses dis- 
playing a header on the screen with the initialization procedure. 

5 REM RftHnOM VERSION 3 

10 REM ******* BLANKET ******* 
20 REM RflNDOM niSPLFlV OF ONE 
.30 REM CHflRfiCTER ENTERED FROM THE 
40 REM KEVEOflRD 

50 REM *********************♦**.***.*.*** 

70 DIM T';999>.. H<12i::> 

75 FOR 1=0 TO 121: READ H<; I .:■ : NEXT 

76 PRINT"r3" REM CLEAR SCREEN 
30 GOSUB 200 :REM INITIALIZE TABLE 
90 PRINT"HIT A KEV OR <R> TO END".; 
100 GET C*IF C*="" GOTO 100 

105 IF C*=CHR*:':;i3:) GOTO 170 

110 print":]".; rem clear .screen 
120 x=rnd<-ti.) :rem start new seed 

125 c=<asc<c*>and128>/2 or c; asc c* .•' and63 > 

126 for u=9s9 to step -1 

12? a;;=<n+i>*rnD';i:j :rem pick an elem 
123 a=t<a.^;.-:'+3276s ; rem form poke addr 

1 29 TP=T < a;-; > ; T < AK > =T < N > ; T < H .) =TP ; REM SWAP ELEMENTS 

130 POKE A..C -REM DISPLAV CHAR 
140 NEXT N 

160 GOTO 100 
170 END 

199 REM **SUBR TO INITIALIZE TABLE** 

200 FOR 1=0 TO 999 STEP 8 

210 FOR J=I TO 1+7 ;T';..t:)=J: NEXT 

220 IF K>121 GOTO 250 

230 POKE H<K.^+33133.. 160 

240 K=K+1 

250 NEXT I 

260 RETURN 

300 DATA 23 .. 1 7 1 .. 7 .. 1 65 .. 245 .. .. 223 .. 249 .. 54 .. 97 .. 1 6 .. 1 9 .. 262 .. 1 09 

.. 160.. 183. 167.. 99.. 248.. 14 
3 1 DATA 267 .. 264 .. 1 85 .. 1 20 .. 1 89 ..17.. 269 .. 29 .. 1 72 .. 247 .. 9 .. 1 45 .. 26 

5 .. 204 .. 1 62 / 25 .. 26 1 ,. 266 .. 1 37 
320 DATA 25 1 .. 45 . 207 .. 243 .. 1 .. 257 .. 26 .. 22 .. 85 .. 254 .. 225 .. 242 .. 1 49 

.. 20 .. 1 1 .. 1 8 .. 205 .. 263 .. 1 29 
330 DATA 200 .. 1 03 .. 229 .. 27 . 1 5 .. 1 2 .. 2 1 .. 1 7'1 .. 268 .. 1 39 .. 1 25 ..101 .. 20 

2.. 24.. 5.. 141 .. 1 .. 132.. 169.. 63 
340 DATA 212.. 4.. 8.. 164.. 219.. 256.. 181 .. 253.. 23.. 6.. 214.. 3.. 187.. 255 

.. 1 31 .. 1 77.. 83.. 1 79.. 240.. 246 
350 DATA 87.. 1 43.. 241 .. 209.. 82.. 211 .. 89.. 258.. 69.. 59.. 134.80.. 147.. 

94 .. 2 .. 1 3 .. 259 . 260 .. 258 .. 227 
360 DATA 244.. 252.. 49.. 40 
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The header is made up of the word RANDOM as blanks outlined by reverse 
blanks and situated in the middle of the screen. The display is created by clearing 
the screen and then POKEing the reverse blanks to the appropriate screen posi- 
tions. There are 122 reverse blanks used in the display. The display is shown 
below with some of the screen positions relative to the first reverse blank shown. 

Screen address 32768 (home position) 
screen address 33133 
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In the program, at line 70 a second table, H, is dimensioned to hold the rela- 
tive positions of the 122 reverse blanks. Line 75 fills Table H with the relative posi- 
tion numbers from DATA statements at lines 30 through 360. The order of the 
numbers in the DATA statements is random but fixed: the header appears to fill 
randomly to the viewer, but it in fact fills the same way each time. (This is in con- 
trast to the random filling of the 1000 screen positions, which is different each 
time.) The initialization routine at lines 200 through 260 fills Table T as before, but 
rather than doing so continuously it breaks every eight elements to POKE a 
reverse blank from Table H to the screen for the header (1000-^122=8 plus a 
small remainder). The header POKE address is formed as the sum of the screen 
position relative to the first reverse blank and the actual memory address of the 
first reverse blank (33133, where 32768 is the home position address). The 
reverse blank value for POKEing is 160, as shown in Appendix A. 

You can see by running this amended version of the program that there is no 
longer any apparent delay during program initialization. 
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CHAPTER 6 



System Information 



ORGANIZATION OF THE PET SYSTEM 

The organization of the PET system is shown in Figure 6-1. The PET is 
built around the 6502 microprocessor. The display screen, cassette tape 
unit, and l<eyboard are physical devices that have been described in Chapter 
2. The three external I/O ports are interfaced through the 2K block of 
memory-mapped I/O. On 4K/8K PETs, the cassette tape unit connects directly to 
the I/O block, and the Cassette Tape Interface is available for connecting a second 
cassette unit. On 16K/32K PETs the cassette tape unit is connected through the 
Cassette Tape Interface; additional tape units, if any are desired, must be inter- 
faced through the IEEE 488 port. The six ROM, RAM, and I/O blocks are allocated 
from the total 65K memory space available on the PET. 

The memory allocation by 4K blocks is shown in Table 6-1. Each portion of 
the memory is described in more detail in the following text. 
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Display 
Screen 



14K ROM 
(BASIC 
and OS) 



8K* RAM 

{Storage and 
User Pgm) 



4K 

Video RAM 



1 



6502 
Micro- 
processor 



Cassette 
Tape 
Unit 



4K/8K 



2K 

I/O 



16K/32K 



Cassette 

Tape 
Interface 



IEEE 488 
Interface 



Parallel 
User Port 



r" Expansion^ 
[ ROM j j 



Expansion 
RAM 



•Varies from 4K RAM with 28K Expansion RAM 
to 32K RAM with no Expansion RAM. 



Keyboard 



Figure 6-1. PET Block Diagram 



Table 6-1. PET Mennory Allocation by 4K Blocks 



Block 


Memory 
Type 


Start Address 


Description 


Decimal 


Hexadecimal 





RAM 





0000 


Working storage, start of text 


1 


RAM 


4096 


1000 


Text and variable storage (8K only) 


2 




8192 


2000 \ 




3 




12288 


3000 1 




4 




16384 


4000 I 


Expansion RAM 


5 




20480 


5000 ( 


6 




24576 


6000 1 




7 




28672 


7000/ 




8 


RAM 


32768 


8000 


Screen Memory 


9 




36864 


9000 ) 




10 




40960 


AOOO > 


Expansion ROM 


1 1 




45056 


BOOO ' 




12 


ROM 


49152 


COOO 


BASIC (principally statement interpreter) 


13 


ROM 


53248 


DOOD 


BASIC (principally math package) 


14 


ROM 


57344 


EOOO 


Screen Editor (2K) 




I/O 


59392 


E800 


I/O Memory (2K) 


15 


ROM 


61440 


FOOO 


Operating System (OS) 
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Addresses 0-8191: 8K RAM (Storage and User Program) 

The first block of RAM is allocated to working storage, the stack, tape 
buffers, and storage of user programs. The amount of active RAM may be 4K 

(addresses 0-4095), 8K (addresses 0-8191), 16K (addresses 0-16384), or 32K 
(addresses 0-32767). The first IK allocation (to 1024) Is fixed; the larger the 
memory size, the more space is available in the user program area. 

I I 



Basic 
Working 
Storage 



256 



Tape Read 
Worl<ing 
Storage 



BASIC 
Stacl< 



512 



634 



826 



1024 



OS 
Worl<ing 
Storage 



Tape Buffer 
#1 



Tape Buffer 
#2 



Text 



Variables 
and Arrays 



Strings 



(4K) 4095 
(8K) 8191 
(16K) 16383 
(32K) 32767 



1 



Available for user if no 
console tape I/O 

Available for user if no 
second cassette 



User program area 



Locations through 255 are used by the BASIC interpreter as working 
storage locations. This area is detailed in Table 6-2. 
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Locations 256 through 51 1 are comprised mainly of the BASIC Stack. A por- 
tion of the area beginning at location 256 and proceeding upward is used by the 
Tape Read routine for error correction and by BASIC as an expansion buffer. The 
stack begins at location 511 and proceeds downward. Storage is allocated 
dynamically as needed by BASIC and the hardware. An OUT OF MEMORY error 
occurs if the stack pointer reaches the end of available space in this area. 

Locations 512 through 633 are used by the OS as working storage locations. 
This area is detailed in Table 6-2. 

Locations 634 through 825 form a 1 92-bYte tape buffer for the console tape 
cassette. Locations 826 through 1023 form a second 1 92-bYte tape buffer for the 
optional second cassette unit. User-written assembly language programs can be 
stored in tape buffer #2 if there is no second cassette used on the system. 

Locations 1024 through the end of available RAM are used for storage of the 
user program and variables. The program begins at location 1024 and is stored 
upward toward the end of memory. Variable storage begins after the end of the 
program. Array storage begins at the end of variable storage. Strings are stored 
beginning at the end of memory and working downward. An OUT OF MEMORY 
error occurs if an upgoing pointer meets the downgoing pointer. 

Addresses 8192-32767: Expansion RAM 24K 

Memory addresses 81 92 through 32767 are allocated for expansion of RAM 
to 32K. 



8192 



12288 



16384 



20480 



24576 



28672 



32767 



Expansion 
RAM 



Expansion 
RAM 



Expansion 
RAM 



Expansion 
RAM 



Expansion 
RAM 



Expansion 
RAM 



4K 
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Each PET has 32K of RAM address space, allocated between active RAM 
and Expansion RAM, as follows: 



Active RAM Expansion RAM 

4K (0-4095) 28K (4096-32767) 

8K (0-8191) 24K (8191-32767) 
16K(0-1638) 



Addresses 32768-36863: 4K Video RAM 

The first thousand locations of this block, from addresses 32768 through 
33767, are allocated to screen memory. A POKE to any of these locations displays 
the character in the appropriate screen position. 



32768 



33792 



34816 



35840 



36863 



TV RAM 



Images of 
TV RAM 



Images of 
TV RAM 



Images of 
TV RAM 



IK 



Addresses 36864-49151: Expansion ROIVI 12K 

Memory addresses 36864 through 49151 are allocated for optional expan- 
sion of ROM to 26K. 

36864 I 1 

Expansion 
ROM 

40960 

Expansion 
ROM 

45056 

Expansion 
ROM 

49151 I 
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Addresses 49152-65535: 14K ROM and 2K I/O 

Locations 49152 through 59391 and locations 61440 through 65535 conn- 
prise the BASIC interpreter and OS diagnostics. IVlemory-mapped I/O locations 
are from 59392 through 61439. 

49152 I 1 



59392 
61440 

65535 



BASIC 



I/O 



OS 



10K 

2K 
4K 



Location 65535 is the end of PET nnemory. 



MEMORY MAP 

The detailed PET memory map is shown in Table 6-2. 

The table shows the memory address in decimal and hexadecimal. The 
decimal value is the PEEK/POKE address (0 to 65535). 

A sample value in decimal and its hexadecimal equivalent are also given. 
With the exception of pointers, these sample values are typical of what you might 
see if you PEEKed at the location; these are all byte values, in the range to 255 
(0-FFi6> A pointer is a two-byte address, in the range to 65535 (0- 
FFFFie). that is stored in the PET in low-byte, high-byte order. All two-byte 
locations in the table contain values stored in low-high order. Consider the first 
such location in the table; 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


1-2 


0001-0002 


826 


033A 


User address jump vector 



If you PEEKed at these locations, the 16-bit address would be presented in two 
parts, first the low-order byte; 

?PEEK(1) 
58 

and then the high-order byte; 

?PEEK(2) 
3 
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To convert the two values to the appropriate address, you can convert them 
separately to hexadecimal and then convert the hexadecimal address to decimal: 

Low High Address 

58io=3Ai6 3io=03i6 ^ 033Ai6=826io 

Note carefully that the sample value 033A means that the first memory byte 
= 3A and the second (higher) memory byte = 03. 

Or you can multiply the high-order byte by 256 and add it to the low-order 
byte. The following is a PEEK statement that will do this for you: 

?PEEK(1)+256*PEEK(2) 
826 

Conversely, to convert a 16-bit memory address into two separate bytes for 
POKEing (in low-byte, high-byte order), you can convert the decimal value to hex- 
adecimal and then convert the separated byte digit pairs to decimal, e.g., to con- 
vert the address 59409: 

High Low 
59409io=E811i6 E8i6=232io and 11l6=17io 

Or you can convert using decimal arithmetic by first dividing the address value by 
256 and discarding any fractional remainder: 

High 

59409/256=232.06641 =232 

Then subtract "High"*256 from the original value (59409 in this case) to get the 
remainder, which is the low-order byte value: 

232*256=59392 

Low 

59409 - 59392= 1 7 

(Of course, if you do the division by longhand, the remainder is directly available.) 

For a block of byte locations, only the first byte value is shown in the table. 

The column labeled Description in the table gives a short description of the 
location's use. There are multiple uses for some locations, in which case the prim- 
ary one is indicated. 

While not exhaustive, the table illustrates the overall makeup of the PET 
memory. 
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PET BASIC INTERPRETER 



The PET BASIC interpreter executes a user program by decoding each 
source line stored in memory in a compacted form. When you enter a line 
from the keyboard, the PET Line Editor has control, allowing you to do any 
editing of the line until you press the RETURN key. Program lines are stored in 
memory in ascending line number order. When the RETURN l<ey is strucl<, the 
BASIC interpreter searches memory for the same line number. If there is one, it 
replaces the current line with the new line. If there isn't one, the next higher line 
number is encountered. The BASIC interpreter then inserts the new line into 
memory and moves the rest of the program up. 

Program lines are stored at the beginning of the user program area of memo- 
ry, which starts at memory location 1024. Variables are stored in memory above 
the program lines, and arrays are stored above the variables. All three areas begin 
at lower addresses and build upwards to higher addresses. Strings are stored 
beginning at the top of memory and work downwards. The BASIC interpreter 
builds all four areas, moving them as necessary and adjusting pointers for inser- 
tions and deletions. Eight pairs of memory locations contain pointers to the divi- 
sion points in the user program area of memory. These are shown in Figure 6-2. 
(They are also listed in Table 6-2.) 

The formats in which BASIC statements, variables, arrays, and strings are 
stored in their respective areas are discussed next. 
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Pointer address 



Typical Values 



Start of program 
(40, 41) Start of text 



(62, 63) DATA statement pointer 



(42, 43) Start of variables 



(44, 45) End of variables 



(46, 47) End of arrays 



(48, 49) End of strings 



(50, 51) Top of memory 



BASIC 
Statements 



Variables 



Arrays 



Strings 



1024 
1025 

1879 



1946 



2072 



2231 



8172 (8K system) 



8191 (8K system) 



Figure 6-2. Principal Pointers in User Program Area 
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BASIC STATEMENT STORAGE 



BASIC statements are stored in the format shown in Figure 6-3. 

Memory location 1 024 always contains a zero byte. 

The next two bytes contain a pointer to the beginning of the first BASIC 
statement. The pointer, like all addresses in the PET, is stored in low-byte, high- 
byte order. The pointer is a link to the nnemory address of the next link. A link ad- 
dress of zero denotes the end of the text; i.e., there are no more links and no 
more statements. BASIC statements are stored in order of ascending line num- 
bers, even though there are links to the next statement. Links are used to quickly 
search through line numbers. 

Following the link address is the line number of the statement, stored in 
low-byte, high-byte order. Line numbers go from 1 (stored as 1 and 0) to 63999 
(stored as 255 and 249). 

After the line number, the BASIC statement text begins. Keywords are 
comprised of reserved words (listed in Table 3-2) and operators (listed in Ta- 
ble 3-4). Reserved word and logical operator keywords are stored in a com- 
pressed format. A one-byte token is used to represent a keyword. All keywords 
are encoded such that the high-order bit is set to 1. Other elements of the BASIC 
text are represented by their stored ASCII code. Other elements are comprised of 
constants, variable and array names, and special symbols other than operators 
and are coded just as they appear in the original BASIC statement. Table 6-3 
shows the byte codes for all values from to 255 that may appear in the 
compressed BASIC text. Codes are interpreted according to this table ex- 
cept after an odd number of double quotation marks enclosing a character 
string; within a character string the standard ASCII codes prevail (see Ap- 
pendix A). 



1024 1025102610271028 1029 



I I I Link I |Line# | Compressed BASIC text | | | 



I Lmk I I Line* | | Compressed BASIC text j | | 
I Lmk j Line#| | Compressed BASIC text | | | 



End of text is indicated by 
two link bytes of zero 



end of 
statement 
is flagged 
by zero 
byte 



Figure 6-3. BASIC Statement Storage 
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Table 6-3. PET BASIC Keyword Codes 



Code 


Character/ 


Code 


Character/ 


uoae 


i^naracier/ 


COuG 


wnaracior/ 


(decimal) 


Keyword 


(decimal) 


Keyword 


(decimal) 


iveywora 


(dGcimal) 


ivey worn 





FnH nf linp 


66 




1 33 


INPUT 


169 


STEP 


1 _3'] 


Mm tQpH 


67 


Q 


134 


DIM 


170 


-1- 


32 




68 




135 


READ 


171 




OO 


1 


69 




136 


LET 


172 


. 


OH 




70 


p 

r 


1 37 


GOTO 


173 


/ 


QP. 

oo 




7 1 


ri 
Kj 


1 TP 
1 oo 


RUN 


174 


1 


oD 




79 


u 

n 


1 oy 


IP 


175 


AND 


o/ 


% 


70 


1 


i 4U 


ni_o 1 v_/ni_ 


1 76 


OR 


OO 

oo 


& 


/4 


1 

J 


1 4 1 




1 77 


> 


on 




7c; 
/O 


1/ 


1/10 
1 4Z 


RFTl IRN 

III- 1 [11 >l 


1 78 




4U 


( 


7R 
/D 


1 

L 


1/10 
1 4o 


REM 


1 79 




/1 1 




77 


IVI 


1 HH 


STOP 


180 


SGN 


HZ 




7R 

/ o 


N 


1 4R 


ON 


181 


INT 


4'^ 

H-O 


+ 


79 


Q 


1 46 


WAIT 


182 


ABS 


44 




80 


P 


147 


LOAD 


183 


USR 


45 




81 


Q 


148 


SAVE 


184 


FRE 


46 




82 




149 


VERIFY 


185 


POS 


47 


/ 


83 


s 


1 50 


DEF 


186 


SQR 


48 


n 

VJ 


84 


X 


151 


POKE 


187 


RND 


49 


1 
1 


85 


y 


1 52 


PRINT* 


188 


LOG 


RO 

JU 




86 




1 53 


PRINT 


189 


EXP 


R 1 


o 

o 


87 


vv 


1 R4 


CONT 


190 


COS 


R9 
□ Z 


4 


88 


x 


1 RR 


LIST 


191 


SIN 


R9 


c 



ot? 


V 
T 


1 Rfi 

1 oo 


CLR 


192 


TAN 


04 


6 


QO 

yu 


7 

Z. 


1 R7 


CMD 


193 


ATN 


00 


7 


Q1 


r 
L 


1 RQ 
1 Do 


SYS 


194 


PEEK 


OD 


8 


Q9 

yz 


\ 
\ 


1 RQ 

1 oy 


OPEN 


1 95 


LEN 


R7 
/ 


Q 


yo 


1 


1 RO 


CLOSE 


196 


STR$ 


58 




94 




161 


GET 


197 


VAL 


59 




95 




162 


NEW 


198 


ASC 


60 


< 


96-127 


Unused 


163 


TAB( 


199 


CHR$ 


61 




128 


END 


164 


TO 


200 


LEFTS 


62 


> 


129 


FOR 


165 


FN 


201 


RIGHTS 


63 


? 


130 


NEXT 


166 


SPC( 


202 


MIDS 


64 


@ 


131 


DATA 


167 


THEN 


203-254 


Unused 


65 


A 


132 


INPUT* 


168 


NOT 


255 


TT 



Note that the left parenthesis is stored as part of the one-byte token for the 
functions TAB and SPC, but that the other functions use a separate byte for this 
symbol. For exannple, the line 

10 IF INT(A)<5 THEN PRINT TAB(X) 

would be coded as the following bytes (in decimal): 



1 Link 


10 





139 


32 


181 


40 


65 


41 


179 


53 


32 


167 


32 


153 


32 


163 


88 


41 





Line 
number 



< 5 



INT 



THEN PRINT TAB( 
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The operators (the symbols +-*/| < = > as well as the words AND. OR, and 
NOT) are given keyword codes (high-order bit set) since they "drive" the BASIC 
interpreter just as reserved words do (e.g., 179 for <). The standard ASCII codes 
for these symbols (e.g., 60 for <) appear only in the text of a string. 

Spaces in the source line are stored except for the space between the line 
number and first keyword. This space is supplied on LISTing when a stored state- 
ment is expanded to its original form. You can conserve memory storage space 
by eliminating blanks (but this makes the program harder to read). You can 
also conserve space by putting more than one statement on a line, since the 
five bytes of link, line number, and end byte are stored only once. 

The size of each statement Is variable and is terminated by a byte of 
zero to indicate the end of the statement. (A value of zero anywhere within the 
text is stored as 48.) Zero byte flags are used by the BASIC interpreter in execut- 
ing a program when it goes through the compressed BASIC text from left to right 
picking out keywords and performing the indicated operations. A zero byte indi- 
cates the end of the statement; the next four bytes are the link and the line num- 
ber of the next statement. In contrast to searching through the text and using 
byte indicators to locate the next statement, links are used when searching the 
statements for their line numbers. Three consecutive bytes of zero (the last state- 
ment's byte followed by two zero link bytes) flag the end of text when executing 
the program. 

A program is stored onto cassette tape in the same format as shown in 
Figure 6-3 for memory storage. Thus, it is basically "dumped" onto tape in a 
continuous block, including link addresses and end bytes. 

The use of tokens in place of keywords is not unique to the PET, but there is 
no standard coding from one interpreter to another. Thus, a BASIC source pro- 
gram SAVEd on tape by PET BASIC is not compatible with other BASICs, nor 
can BASIC programs generated on other (non-PET) machines normally be 
loaded by the PET BASIC interpreter. 
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USER PROGRAM AREA INITIALIZATION 



On power-up, the user program area of memory is initialized to "+" charac- 
ters (code 170) except for the first few beginning locations at 1024 on. Location 
1024 is zero. The initial link in locations 1025 and 1026 is zero. The pointers into 
the user area are initialized as shown in Figure 6-4. 

As lines are entered and edited and new programs loaded, the contents 
of memory locations throughout the user program area change. They change, 
however, only as necessary for the current program. The user area is not con- 
tinuously reinitialized (to "+" or any other code). It is the pointers into the user 
area that determine the extents of the current program, if any. The action of a 
NEW command is simply to readjust the pointers to the initial values shown in 
Figure 6-4. A CLR does the same thing except that it adjusts the variable and array 
pointers from the end of the program rather than the start of the program as NEW 
does. (In fact, if you have accidentally cleared the program or variables, you 
can reinstate them by "reading" through the user program area as needed 
and restoring the pointer values.) 
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Pointer Address 
(62, 63) DATA statement pointer 
Start of program 
(40. 41) Start of text 
(42, 43) Start of variables ■ 
(44, 45) Start of arrays 
(46, 47) Start of free space 



Memory 
Location 



(48, 49) End of strings ■ 
(50, 51) Top of memory 




8191 (8K system) 



Figure 6-4. User Progrann Area on Power-Up 
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DATA FORMATS 



Variables 

Variables are stored in the Variable Area of user program memory (see 
Figure 6-2). These are simple (unsubscripted) variables; arrays are stored in 
a separate area. The variables may be floating point, integer, or string and 
are freely intermixed in the Variable Area. Each variable, regardless of its 
type, occupies seven bytes of memory. The first two bytes contain the variable 
name, and the remaining five bytes further define the variable. Variables are en- 
tered into the variable table as they are encountered during execution of the user 
program. A variable that is not in the table is assumed to have a value of zero for 
numeric variables or null for a string variable. 



Floating Point Variable Format 



Byte 



1 


2 


3 


4 


5 6 


7 


1st 
char 


2nd 
char 
or 


Expo- 
nent 


— 1 
1 


1 

Fraction 


i 



Byte 1 contains the first character of the variable name. Byte 2 con- 
tains the second character of the variable name or, if there is no second 
character, byte 2 contains a zero. The characters are stored in standard ASCII 
codes (see Appendix A). For example, the name A is stored as 65, whereas the 
name AO is stored as 65. 48. A floating point variable is denoted by variable 
names having stored ASCII values of 90 or below. 

Bytes 3 through 7 contain the value of the floating point variable in standard 
normalized, excess 128 format. Byte 3 contains the exponent in excess 128 
format. The exponent determines the magnitude of the number. In excess 128 
format, 128 is added to the true exponent (after normalization of the significant 
digits) so that the smallest exponent representation contains all zeros. The largest 
exponent representable contains all ones. A true exponent of zero is represented 
by an exponent value of 128 (0-1-128). Excess 128 format eliminates having to 
consider a sign in the exponent. 

Examples: 

Exponent 

255 
162 
127 

2 





Approximate Value 
1038 

(maximum exponent) 

ioio 

10-1 
10-38 

10-~^^(minimum exponent — number 
is zero) 
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Bytes 4 through 7 contain the significant digits of the number. The num- 
ber is normalized such that the binary point is to the immediate left of the first 
non-zero binary digit. That is. it is represented as a fraction in the form: 



The binary point is always assumed and is not stored. Further, the most sig- 
nificant 1 digit is always assumed (since it is always 1) and is not stored either. 
Its bit position is used to hold the sign of the number, O=positive and 
1 =negative. To normalize a number, the point is moved to the left and the expo- 
nent decremented (smaller numbers), or the point is moved to the right and the 
exponent incremented (larger numbers), until the number is a fraction in the form 
shown above. The number zero is generally represented by all zeros in bytes 3 
through 7, but the fraction may contain roundoff errors; an exponent of zero is 
sufficient to make the number zero. 

Some examples of floating point number representations stored in the 
Variable Area follow. 1 E-f 38 has the maximum exponent of 255. This decreases 
down to zero as the numbers decrease to zero. Fractional floating point numbers 
(e.g., .5, .01, .006) have exponents below 129. For negative numbers, the expo- 
nent increases from to 255 as the absolute value of the numbers increases. In 
byte 4 the high-order bit is the sign bit. in this column, decimal numbers < 127 
have bit 7=0 (positive numbers), and decimal numbers higher than this have bit 
7=1 (negative numbers). 



first digit always 1 



1 X X X...X X X 




Binary Remaining 15 
point binary digits 
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Byte: 


3 


4 


5 


6 


7 


Number 


Exponent 


+IV1SB 


Fraction 


LSB 


1 E+38 


255 


22 


1 18 


153 


83 


1 E+1 


1 62 


21 


2 


249 





1000 


1 38 


122 











1 


1 29 








00 




.01 


122 


35 


215 


10 


62 


1E-4 


1 15 


81 


1 83 


23 


90 


1 E 


62 


60 


229 


8 


101 


1 E-39 





32 





























-1 


129 


128 











-1000 


138 


250 











-1E+10 


162 


149 


2 


249 





-1E+38 


255 


150 


118 


153 


83 



The following short program allows you to examine floating point 
representations for any numbers. Line 10 inputs a nunnber that you enter from 
the keyboard, terminating with a RETURN Icey. Line 20 points to the beginning of 
variables +2 to go past the two-byte variable name. Line 30 prints the number 
that was input followed by the five bytes PEEKed from the variable table. The pro- 
gram is continuous; to end, enter a null line (RETURN key only). 

10 INPUT A 

20 X=PEEK(43)*256-hPEEK(42)-h2 

30 PRINT A;"=";PEEK(X);PEEK(X-l-1);PEEK(X-l-2);PEEK(X-l-3):PEEK(X-l-4) 
40 GOTO 10 

Integer Variable Format 

Byte: 1 2 3 4 5 6 / 



1st 
char 
+ 128 


2nd 
char 
+ 128 
or 128 


Value 
High 1 Low 





u 






Byte 1 contains the first character of the variable name shifted (+128). 
Byte 2 contains the second character of the variable name shifted (+128), or 
if there is no second character, byte 2 contains 1 28. An integer variable is 
denoted by variable names having ASCII values of 1 76 or higher. The % nota- 
tion is dropped from the variable name. Bytes 3 and 4 contain the value of 
the integer in high-byte, low-byte o rder. (Note that this value is not an address 
and does not conform to the reverse standard for pointers). The value is stored in 
twos complement format so that the high-order bit (bit 7 of byte 3) represents 
the sign, 0=positive, and 1=negative. The remaining three bytes are not used 
and are set to zeros. 

The following are some examples of integer representations stored In 
the Variable Area. You can use the same 4-llne program to look at integer 
number representations after changing A to A% in lines 10 and 30. 
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Byte; 3 4 
Number 

32767 127 255 (256-127+255 = 32767) 

32766 127 254 

14000 54 176 

256 1 

255 255 

1 1 

-1 255 255 (FFFFi6)+1 = 1 

-2 255 254 

-32766 128 2 

-32767 1281 1 



String Variable Format 



1 


2 


3 


4 5 


6 


7 


1st 
char 


2nd 
char 
+ 128 
or 128 


Char 
count 


1 

Pointer 

High 1 Low 









Byte 1 contains the first cliaracter of the variable name. Byte 2 con- 
tains the second character of the variable name shifted-(+1 28), or if there is 
no second character, the second byte contains 128. This combination of ASCII 
ranges denotes a string variable entry. The $ notation is dropped from the variable 
name. Byte 3 contains a count of the number of characters in the string (1 to 
255). This is the value fetched for the LEN function. Bytes 4 and 5 contain a 
pointer to the beginning of the string itself, stored elsewhere in memory. 
This pointer is in the standard 6502's low-byte, high-byte order. The remain- 
ing two bytes are not used and are set to zeros. 

String shortage is optimized by using the copy of the string already in 
memory if there is one. If there is not, a string is created and stored in the 
String Area in upper core. A few examples are given below. 

Constants 

Constants are stored in the BASIC statement itself. They are not placed into 
a separate area of memory, and they are not stored in the Variable Area. Floating 
point and integer and string constants are stored as ASCII character source 
codes, as described previously under BASIC Statement Storage. For example, the 
line; 

10 PRINT "HI!" 

is stored entirely in the BASIC Statement Area, in the form: 



Linl< 


10 





153 


32 


34 


72 


73 


33 


34 






Line ^ 
number | 
N 
T 



320 



whereas the statement 

10 A$="HI!":PRINT A$ 

is stored in two areas. The original statement is stored in the BASIC Statement 
Area: 



Link 



10 







65 



36 



178 



34 



72 



73 



33 



34 



58 



153 



32 



65 



36 







Line A $ 
number 



H I ! 



A $ 



In addition, when this statement is executed the following entry is made in the 
Variable Area: 



Byte: 


1 


2 


3 


4 


5 


6 


7 


(42, 43) 


65 


128 


3 


9 


4 









1 


















A 




Length 
















of 
















string 









T| (String) 



No A'256+9 
2nd =1033 
char 

The string in the BASIC Statement Area is pointed to (beginning at memory loca- 
tion 1033 in this program) rather than storing a copy of it inuppercore. However, 
when you create a new string, as in: 

20 B$=A$-l-"HO" 

the BASIC Program Area entry is: 



Linl< 


20 





66 


36 


178 


65 


36 


170 


34 


72 


79 


34 







Line 


' B 


$ 




A 


$ 


+ 




H 










number 

and the entry in the Variable Area is: 

Byte: 1 2 3 4 5 6 7 



(42, 43) 



128 5 251 



31 







No Length 
2nd of 
char string 



31'256+251 = 
8187 
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This time the pointer addresses a location in upper core (8187 in this progrann) 
that contains the string: 

8188 8190 

8187 I 8189 I 8191 
72 1 73 1 33 1 72 1 79 1 
H I ! H 



Array Storage Format 

Arrays are stored in the Array Area of user program memory (see Figure 
6-2). Arrays may be floating point, integer, or string and are stored in the 
order in which they are created by the program. The type of array is dis- 
tinguished by the way in which the two-character array name is stored, 
exactly the same as for variable names. An array is stored with a header 
followed by the elements of the array, in the general form: 



Header 



Element 



Element 1 



Element n 



(Elements are stored in reverse order for strings.) 

All types of arrays have the same header format. The header contains 
seven bytes plus two bytes for each array dimension beyond 1 . 



ARRAY HEADER 



Bytej 1 



1st 


2nd 


Total bytes 


Number of 


Last 


Low 1 High 


dimensions 


dimension ( 


char 


char 


Low ^'f® High 



(bytes as needed) 



Next-to-last 



dimension .', 
size 



I 



First ^ 
dimension ' 
size . . . ' 



Low ! High! Low ; J^jphj 



Like floating point variables, floating point array elements each have 
five bytes. However, for integers the unused three bytes, and for strings the 
unused two bytes, are dropped for array elements. 
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In the array header, bytes 1 and 2 contain the array name. Bytes 3 and 4 
contain a count of the number of memory locations that the array occupies. 

For example, A(0) would occupy 12 bytes: 7 for the header and 5 for the single 
element. The byte count is stored in low-byte, high-byte order. Byte 5 contains 
a count of the number of dimensions in the array. As examples, A(5) has one 
dimension (byte 5 = 1) and A(10,10,2) has three dimensions (byte 5 = 3). For a 
one-dimensional array (or vector), bytes 6 and 7 contain the dimension 
size — that is, the number specified between parentheses in the DIM statement 
+ 1. For example, the dimension size = 61 for DIM A(60), = 101 for DIM A(100), 
etc. If the array does not appear in a Dimension statement, the dimension size 
defaults to 1 1. The dimension size is stored in low-byte, high-byte order. For a 
multiple dimension array, the header contains additional bytes in which are 
stored all the dimension sizes. Two additional bytes are used for each addi- 
tional dimension. The dimension sizes are stored in reverse order from the 
order in which they appear in the DIM statement. For example, for DIM A(10,5) 
the dimension sizes are stored as bytes 6,7=6 and bytes 8,9=1 1. For DIM X(2,1,3) 
the dimension sizes are stored as bytes 6,7=4, bytes 8,9=2 and bytes 10,11=3. 

The formats of array elements for each type of array are shown below. 
They are represented exactly as described for variables (without the unused 
bytes for integers and strings). 

Floating Point Array Element Format 

Byte: 1 2 3 4 5 

I rrn — \ — I — I 

Exponent ±i Fraction 
t 



Integer Array Element Format 

Byte: 1 2 
Value 

High I Low 



String Array Element Format 

Byte: 1 2 3 





Pointer 


Char 




count 


High 1 Low 
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The size of the header may be calculated as five bytes plus two times 
the number of dimensions in the array. The total size of the elements may be 
calculated as the number of bytes per element (5 for floating point, 2 for 
integer, 3 for string) times the number of elements (the dimensions multi- 
plied together + 1). The total size of the array, header plus elements, is 
stored in byte 4 of the array header. 

The following is a program for viewing sample Array Area entries: 
10 DIM A(5), B%(2,2), C$(10):REM SAMPLE ARRAYS 
20 FOR 1=0 TO 5: A(1)=I:NEXT 

30 FOR 1=0 TO 2:F0R J=0 TO 2:B%(J,I) = 100-I-3*I+J:NEXT J, I 

40 FOR 1=0 TO 10:C$(I)=CHR$(ASCC'A")+I):NEXT 

50 X=PEEK(45>*256+PEEK(44):REM POINT TO ARRAY AREA 

60 Y=PEEK(47)*256+PEEK(46):REM END OF ARRAYS 

70 FOR l=X TO Y 

80 PRINT I, PEEK(I) 

90 GET D$:IF D$=— GOTO 90 

100 NEXT 

Each of the three types of arrays is dimensioned. Line 20 fills the floating 
point array A with the numbers through 5. Line 30 fills the integer array B% with 
the numbers 100 through 1 08. Line 40 fills the character array C$ with the single 
strings A through K. Lines 50 and 60 fetch the pointers to the end of the Variable 
Area and the end of the Array Area. Lines 70 to 1 00 print the address followed by 
the byte value in that address within the Array Area. Printing shops at each 
memory location; to print the next location, press any key (e.g., the RETURN key). 
You will need to locate the beginning of the arrays by the sequence for the first 
array shown below (the pointer addresses the end variable). The memory loca- 
tions will appear as shown below. 



Array Area 





1 


2 


3 


4 


5 


6 


7 






















A(5) 


65 





37 





1 





6 

















129 
















A 


No 






'No. 






A(0) = 









A(l 


= 1 









2nd 
char 



of 

dimensions 



Array size = 
37 bytes 



No. of 
elements 



130 














130 


64 











131 














131 


32 












A(2) = 2 A(3) = 3 A(4) = 4 A(5) = 5 
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3 4 



6 7 8 9 



194 


128 


27 





2 





3 





3 





100 





101 





102 





103 



B No— 
+128 2nd 
char 



of 

dimensions 



'B%(0,0) B%(1,0) B%(2,0) B%(0,1) 
100 =101 = 102 =103 



Array 



Last 



First 



size = dimension dimension 



27 bytes 


size 


= 3 


size = 


= 3 










104 





105 





106 





107 





losl 



B%(1,1) B%(2,1) B%(0,2) B%(1,2) B%(2,2) 
= 104 = 105 =106 =107 =108 



1 2 3 4 5 



67 


128 


40 





1 





1 1 


1 


255 


31 


1 


254 


31 


1 


253 


31 


1 


252 


31 



No— 

2nd 

char 



~^No.' ■ 

of 

dimensions 



Array 
size = 
40 bytes 



C$(10) 



'C$(9) 



C$(8) 



C$(7) 



No. of 256"31 
elements +255=8191 



251 


31 


1 


250 


31 


1 


249|31 


1 


248 


31 


1 


247 


31 


1 


246 


31 


1 


245 


31 



C$(6) 



C$(5) 



C$(4) 



C$(3) 



C$(2) 



C$(1) 



c$(or 



256-31+245 
=8181 



String Area 



8182 8184 8186 8188 8190 



65 


66 


67 


68 


69 


70 


71 


72 


73 


74 


75 



B C D E F G H I 
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Character Representation 

ASCII (American Standard Code for Information Interchange) is a 
widely used code for representing character data. It is nominally a 7-bit 
code, allowing 128 characters (7Fi6=128io) to be represented. The stan- 
dard ASCII 7-bit character set is shown in Table 6-4. Bits are numbered from 
(least significant bit) to 6 (most significant bit): 

7 6 5 4 3 2 1 Bit number 



The first 32 codes are reserved for non-printable control characters, intended for 
message formatting and print format control. 

On the PET, characters are stored in ASCII format but in anextended 
version using eight bits. With eight bits normally available, rather than just 
seven, up to 255 characters can be represented. Within compressed BASIC 
text the 8-bit character codes are interpreted as shown in Table 6-3, where 
the eighth bit on signifies a keyword. Elsewhere in main memory the 8-bit 
character codes are interpreted as shown in Appendix A. 
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The screen memory, occupying memory locations 32768 through 
33767, uses a different ASCII character representation from main memory. 
It is a 7-bit code as shown in Figure 6-5. The eighth bit is a normal'reverse 
field indicator. Note that the characters are arranged such that bits through 
5 represent one key on the PET keyboard, with bit 6=0 being the unshifted 
character and bit 6=1 being the shifted character of the same key: 
Table 6-4. ASCII Standard 7-Bit Codes 



3 


Bit 

2 11 


6 

'■ 5 ' 

4 









1 




1 






1 
1 


1 





1 



1 


1 
1 




1 
1 














NUL 


DIE 


SP 





@ 


p 




P 











1 


SOH 


DC1 


1 


1 


A 


Q 


a 


q 








1 





STX 


DC2 




2 


B 


R 


b 


r 








1 


1 


ETX 


DCS 


# 


3 


C 


S 


c 


s 





1 








EOT 


DC4 


$ 


4 


D 


T 


d 


t 





1 





1 


ENQ 


NAK 


% 


5 


E 


U 


e 


u 





1 


1 





ACK 


SYN 


& 


6 


F 


V 


f 


V 





1 


1 


1 


BEL 


ETB 




7 


G 


w 


g 


w 













BS 


CAN 


( 


8 


H 


X 


h 


X 










1 


HT 


EM 


) 


9 




Y 


i 


Y 







1 





LF 


SUB 






J 


z 


i 


z 







1 


1 


VT 


ESC 


-1- 




K 


[ 


k 


1 




1 








FF 


FS 




< 


L 


\ 


1 


1 




1 





1 


CR 


GS 






M 


] 


m 


1 




1 


1 





SO 


RS 




> 


N 


A 


n 






1 


1 


1 


SI 


US 


/ 


? 










DEL 



NUL 


Null 


DC1 


Device control 1 


SOH 


Start of heading 


DC2 


Device control 2 


STX 


Start of text 


DCS 


Device control 3 


ETX 


End of text 


DC4 


Device control 4 


EOT 


End of transmission 


NAK 


Negative acknowledge 


ENO 


Enquiry 


STN 


Synchronous idle 


ACK 


Acknowledge 


ETB 


End of transmission block 


BEL 


Bell, or alarm 


CAN 


Cancel 


BS 


Backspace 


EM 


End of medium 


HT 


Horizontal tabulation 


SUB 


Substitute 


LF 


Line feed 


ESC 


Escape 


VT 


Vertical tabulation 


FS 


File separator 


FF 


Form feed 


GS 


Group separator 


CR 


Carriage return 


RS 


Record separator 


SO 


Sfiift out 


US 


Unit separator 


SI 


Shift in 


SP 


Space 


DLE 


Data line escape 


DEL 


Delete 
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Table 6-5. PET Screen Memory 7-Bit Codes 



a fa 1 








is 


1 


1 


1 


1 


1 t> 1 




tJ 


1 


1 


t) 


B 


1 


1 


1 4 1 


u 


1 


t) 


1 




1 




1 




















bUUb 1 




y 








1 




r 


ouai 1 


H 


u 


! 


1 


* 


• 


1 




uuit) 1 


h 


K 


' ' 




1 


- 




-T 


tJUll 1 


c 


s 












-1 


mat) 1 


L» 


1 


% 


4 




1 


— 


1 


0101 1 


L 


u 




i> 




r 


1 


1 


BllU 1 




V 


b( 


b 


— 


X 


&i 


1 


tilii 1 








y 


1 





1 




lUUU 1 


n 


)s 


(< 


o 


1 
1 


V 


ttt 




loul 1 


1 


V 


; 


y 




1 


r 




luia 1 


J 




* 






♦ 


1 


J 


itiii 1 


K 


L 


+ 


> 




+ 


h 


■ 


ilOkJ 1 


L 








L 




■ 




llUl 1 


h 


J 






\ 


1 


L 


_l 


liitj 1 


H 


1 




> 


/ 


IT' 






1111 1 





<- 






1 










7 6 


5 4 


3 2 1 


— 


— Bit number 









(Screen Code) 



0=unshifted character 
1 =shifted character 
O=normal field 
1 =reverse field 

The complete character set for screen memory is shown in Appendix A under the 
PEEK/POKE column. 
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The screen memory ASCII code may be derived from the main PET 
ASCII code by moving bit 7 of the main code over into bit 6 and dropping the 
previous value of bit 6. The examples below illustrate the four cases of a or 1 in 
bit 7 going into a or 1 in bit 6: 

Main Memory Screen Memory 
Character Representation Representation 

A 01000001 00000001 

Shifted A ( ^ ) 1 1000001 01000001 

1 00110001 00110001 

Shifted 1 ( H ) 10110001 01110001 

When PRINTing to the screen, the PET automatically makes the con- 
version to screen codes. Only when you are PEEKing and POKEing in screen 
memory do you need to be concerned about the character set differences. 

Screen memory can be considered to have an additional "bit" that 
represents the alternate character set by a POKE 59468,14 as described in 
Chapter 5. POKE 59468,12 restores the standard set. The alternate set is 
also shown in Appendix A. 

ASSEMBLY LANGUAGE PROGRAMMING 

PET BASIC provides minimal assistance to the user who wishes to write and 
execute programs written in 6502 assembly language. Assembly language pro- 
grams execute faster and require less memory space for a given funct'on than the 
equivalent BASIC program. You might want to write an assembly language 
program to be run on the PET if: 

1. The operation is not fast enough using a BASIC program 

2. The operation cannot be implemented in PET BASIC 

3. The operation takes up too much memory space as BASIC program 

4. Assembly language lends itself better to the task than the BASIC 
language. Some I/O operations probably fall into this category. 
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An assembly language program can be loaded Into PET memory by 
POKEIng the decimal values of the 6502 instructions that make up the pro- 
gram. There is no area set aside for use by assembly language programs. You 
have to make space, either by taking othervt/ise unused system locations or 
by setting up a space in the user program area of memory. The following are 
possible locations: 

1. Cassette Buffers. If you do not have a second cassette unit, then the 
192-byte tape buffer for cassette #2 can be used to store an assembly 
language program. The buffer #2 extents are locations 826 to 1017 (see 
Table 6-2). In addition, if the console cassette unit is not going to be 
used while the assembly language program is operating, then the other 
192-byte tape buffer for cassette #1, at memory locations 634-825, is 
also available. No LOADs, SAVEs or other tape I/O can be performed to 
the particular cassette while the cassette buffer is used by an assembly 
language program. 

2. Top of Memory. Memory locations 52 and 53 contain the pointer to the 
top of memory. On 8K PETs this value is 8192. You can temporarily set 
the top of memory pointer to a lower address, thereby reserving a num- 
ber of bytes from the new pointer value to the actual top of memory for 
storage of an assembly language program. To set the pointer, say, down 
1000 bytes, you will need to store the value 7192 (8192-1000) con- 
verted into low, high address order, e.g.: 

High Low 
7192io=1C18i6- 1Ci6=28io and 18i6=24io 

So 24 is to be stored at location 52 (low byte), and 28 is to be stored at loca- 
tion 53 (high byte), the following instructions can be used: 

10 AL=PEEK{52):AH=PEEK(53):REM SAVE CURRENT POINTER 
20 POKE 52,24:POKE 53,28:REM TOP OF CORE = 7192 



100 POKE 52,AL:POKE 53,AH:REM RESTORE POINTER 
110 END 

3. You may find usable locations in the BASIC Statement Area. You may 
create a block of dummy DATA statements and use those locations. 
There are generally a few locations free between the end of the program 
and the beginning of the Variable Area. You must be very careful 
when trying these types of approaches that your assembly language 
program and the PET BASIC interpreter do not get in each other's way. 
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The PET BASIC interpreter can be used to locad an assembly language 
program Into the selected area of memory. The process is a rudimentary one, 
consisting of POKEing the decimal equivalents of the 6502 machine 
language instructions. To get the instructions in decimal, you can write you pro- 
grann in 6502 assembly language (reference manuals are listed in an appendix), 
hand code it into hexadecimal, and then convert the hexadecimal codes to 
decimal. Commodore's Terminal Interface Monitor (available on cassette from 
Commodore if it is not built into your PET) stores the hexadecimal codes directly. 
However, with the Monitor you must load the assembly language routine sepa- 
rately from the BASIC program, whereas by POKEing you can load the assembly 
language routine as part of executing the main program written in BASIC. (The 
PET is suitable for implementing only small portions of the program in assembly 
language.) DATA statements are used to define the machine language codes, 
which can be subsequently READ into the program and passed to a POKE loop. 

Control is transferred to an assembly language program in one of two 
ways: the SYS command or the USR function. They are more or less in- 
terchangeable, but SYS is geared to turning control over to an assembly language 
program, whereas USR is a true function reference that allows a value to be sent 
to the called assembly language routine and a value returned by it to the main 
program. 

The assembly language program must return control back to BASIC via 
a Return-From-Subroutine (RTS) instruction. 

SYS 

SYS is a system function that transfers program control to an independent 
subsystem. 

Format: 

SYS(address) 

where: 

address is a numeric constant, variable, or expression 

representing the starting addess at which ex- 
ecution of the subsystem is to begin. The value 
must be in the range < address < 65535. 

Unlike other functions, SYS can be specified alone in a direct or program 
statement. 
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Examples: 

SYS{826) In immediate mode transfer control of the 

system to the 6502 machine language 
program beginning at memory location 
826 (the 2nd cassette buffer). 

55 SYS(826) Same as above but executed in program 

mode. On return, execution proceeds with 
the first statement in sequence following 
the SYS statement. 

126 SYS(A+14) Transfer control of the system to the com- 
puted address A-l-14. 

SYS is the assembly language subroutine equivalent to a GOSUB but with 
the important difference that the safeguards built in to PET BASIC to protect the 
system from user program errors are no longer operable once control has been 
released by execution of a SYS (or USR). The system will tend to crash even more 
frequently debugging assembly language programs than it does debugging 
BASIC program. 

Values can be passed between the BASIC program and the SYS subroutine 
using PEEKS and POKEs (for the BASIC program) to known memory locations. 

USR 

USR is a system function that passes a parameter to a user-written assem- 
bly language subroutine whose address is contained in memory locations 1 and 2 
and fetches a return parameter from the subroutine. 

Format: 

USR(arg) 

where: 

arg is the parameter value passed to the subroutine. 

Examples: 

?USR(60) Prints in immediate mode the value returned by 

the USR subroutine when passed a value of 60. 

105 A=USR(60) Same as above but in program mode. 

210 IF USR(X)<4 GOTO 50 

510 SM=USR(XA)-l-USR(3.4)-l-SQR(Y)-t-7r 
Before making a USR reference, the beginning addess of the assembly 
language subroutine must be placed into memory locations 1 and 2. For ex- 
ample, if the subroutine is located in the cassette #2 area, you would include the 
instructions: 

10 POKE 1,58 
20 POKE 2,3 

Low High 
since 826-1 o=033A 16. 3A-|6=5B-|o and 03i6=3io- 
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The parameter value is passed to the USR subroutine in system loca- 
tions that function as a floating point accumulator (FAC) for all functions. The 
FAC resides in six bytes from memory locations 94 to 99 (5Eig-63ig). The 
FAC has the following format: 

Memory location: 94 95 96 97 98 99 (FAC 





It 


Fraction 

1 




Sign 


Floating 
Point) 


Exponent j 




O=positive 



-1 —negative 



Like floating variables, the exponent is stored in excess 1 28 format and the 
fraction is normalized with the high-order bit of byte 95 (the high-order byte of 
the fraction) set to 1 . The difference between this format and the variable format 
is that the high-order 1 bit is present in byte 95 of the FAC. An extra byte (99) is 
used to hold the sign of the fraciton. (This is done for ease of manipulation by the 
functions that use the FAC.) 

The USR subroutine must fetch the value passed to it from the FAC 
locations. It must deposit the value being returned into the FAC before ter- 
minating, if the USR subroutine does not alter the FAC, then the same value 
is returned to the program as was passed from it. 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) 



Memory Address 


Sample Value 


Description 


Decimsl 


Hex3decim3l 


Decimdl 


Hexddecimsl 








Page 


(0-255) 










USR Function Locetions 





0000 


76 


4C 


Constant 6502 JMP instruction 


1-2 


0001-0002 


826 


033A 


User address jump vector 










Evaluation of Variables and 










Terminal I/O Maintenance 


3 


0003 





00 


Search character 


4 


0004 





00 


Delimiter flag for quote mode scan 


5 


0005 


255 


FF 


Input buffer pointer, general 










counter 


6 


0006 





00 


Flag for dimensioned variables 


7 


0007 





00 


Flag for variable type: 










00=numerlc 










FF=string 


8 


0008 





00 


Flag for numeric variable type: 










O0=floating point 










80=integer 


9 


0009 





00 


Flag for DATA scan; LIST quote; memory 


10 


OOOA 





00 


Flag to allow subscripted variable: FNx flag 


1 1 


OOOB 





00 


Flag for mput type: 










0=INPUT 










64=GET 










152=READ 


12 


OOOC 





00 


Flag for ATN sign; comparison evaluation 


13 


OOOD 





00 


Flag to suppress output: 










+ normal 










— suppressed 


14 


OGOE 





00 


Current I/O device for prompt-suppress 


15 


OOOF 


40 


28 


Terminal w/idth (unused) 


16 


0010 


30 


IE 


Limit for scanning source columns (unused) 


17-18 


001 1-0012 


828 


033C 


Basic integer address (for SYS. GOTO, etc.) 


19 


0013 


22 


16 


Index to next available descriptor 


20-21 


0014-0015 


19 


13 


Pointer to last string temporary 


22-29 


00 16-00 ID 


2 


0002 


Table of double-byte descriptions that point 










to variables (8 bytes) 


30-31 


001E-001F 


16451 


4043 


Indirect index #1 


32-33 


0020-0021 


261 19 


6607 


Indirect index #2 


34 


0022 


1 


01 


Pseudo-register for function 










operands (6 bytes) 


35 


0023 


140 


8C 




36 


0024 





00 




37 


0025 





00 




38 


0026 





00 




39 


0027 





00 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










Data Storage Ivlaintenance 


40-41 


0028-0029 


1025 


0401 


Pointer to start of BASIC text 


42-43 


002A-002B 


1920 


0780 


Pointer to start of variables 


44-45 


002C-002D 


2032 


07F0 


Pointer to end of variables 


46-47 


002E-002F 


2191 


0B8F 


Pointer to end of arrays 


48-49 


0030-0031 


8192 


2000 


Pointer to start of strings (moving down) 


50-51 


0032-0033 


8191 


1FFF 


Pointer to end of strings (top of available 










RAMI 


52-53 


0034-0035 


8192 


2000 


Pointer to limit of BASIC memory 


54-55 


0036-0037 


2000 


07 DO 


Current line number. Loc 55=-2 if no 










program yet executed 


56-57 


0038-0039 


110 


006E 


Previous line number 


58-59 


003A-003B 


1897 


0769 


Pointer to next line to be executed (for 










CONTI 


60-61 


003C-003D 


200 


00C8 


Line number of current DATA line 


62-63 


003E-003F 


1855 


073F 


Pointer to current DATA item 










Expression Evaluation 


64-65 


0040-0041 


514 


0202 


INPUT vector 


66-67 


0042-0043 


89 


0059 


Current variable name. 


68-69 


0044-0045 


2006 


07D6 


Pointer to current variable 


70-71 


0046-0047 


2006 


07D6 


Pointer to current FOR . . NEXT variable 


72-73 


0048-0049 


1279 


04FF 


Pointer to current operator in ROM table 


74 


004A 





00 


Mask for current logical operator 


75-76 


004B-004C 


62268 


F33C 


Pointer to user function FN definition 


77-78 


0040-004E 


26531 


67A3 


Pointer to a string description 


79 


004F 


243 


F3 


Lengtfi of string 


80 


0050 


3 


03 


Constant used by garbage collection routine 


81 


0051 


76 


4C 


Constant 6502 JMP instruction 


82-83 


0052-0053 





00 


Jump vector for functions 


84-89 


0054-0059 


21 1 


D3 


Floating point accumulator #3 (6 bytes) 


90-91 


005A-005B 





0000 


Block transfer pointer #1 


92-93 


005C-005D 





0000 


Block transfer pointer #2 


94-99 


005E-0063 






Floating point accumulator (FAC) #1 










(6 bytesl 









00 


94 005E Exponent -Fl 28 









00 


95 005F Fraction MSB Floating Point 









00 


96 0060 Fraction 









00 


97 0061 Fraction MSB Integer 









00 


98 0062 Fraction LSB 









00 


99 0063 Sign of fraction (0 if zero or 










positive. 1 if negative) 


100 


0064 





00 


Copy of FAC #1 sign of fraction 


101 


0065 





00 


Counter for number of bits to shift to nor- 










malize FAC #1 


102-10/ 


UU66-U06B 





00 


Floating point accumulator #2 










(6 bytes) 


108 


006C 





00 


Overflow byte for floating argument 


109 


006D 





00 


Copy of FAC #2 sign of fraction 


110-111 


006E-006F 


258 


0102 


Conversion pointer 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimsl 


Hexsdecimsl 


Decimal 


Hex3decini3l 










RAM Subroutines 


1 12-135 


0070-0087 


230 


E6 


Routine to fetch next BASIC character 






173 


AD 


1 18 76 Entry to refetch current character 






1904 


0770 


1 19-120 77-78 Pointer into source text 


136-140 


0088-008C 


128 


80 


Next random no in storage and RND work 










area 










\jt3 w lui aye 


141-143 


008D-008F 


398710 


061576 


24-hour clock incremented every 1/60 sec- 










ond (jiffy). Resets every 5,184,000 jiffies 










(24 hours]. Stored in high to low order 


144-145 


0090-0091 


58926 


E62E 


Hardware interrupt vector 


146-147 


0092-0093 


64791 


FD17 


6502 BRK instruction interrupt vector 


148-149 


0094-0095 


50057 


C389 


NMI interrupt vector 


150 


0096 





00 


Status word ST (1 byte) 


151 


0097 


255 


FF 


Matrix coordinate of key depressed at cur- 










rent Jiffy. 










l-80=key. 










255=no key 


152 


0098 





00 


Status of SHIFT key: 










0=unshifted (up) 










1 =shifted (down) 


153-154 


0099-009A 


65282 


FF02 


Correction factor for clock 


155 


009B 


255 


FF 


Keyswitch PIA: STOP and RVS flags 


156 


009C 





00 


Timing constant buffer 


157 


009D 





00 


I/O flag: 










0=LOAD 










1 -VERIFY 


158 


009E 





00 


Number of characters in keyboard buffer (0 










to 9) 


159 


009F 





00 


Flag to indicate reverse field on (O=normal) 


160 


OOAO 





00 


IEEE 488 output flag 










FF=character waiting 


161 


00A1 


13 


OD 


Byte pointer to end of line for input 


162 


00A2 





00 


Utility 


163-164 


OOA3-O0A4 


11,13 


OB. OD 


Cursor log (row, column) 


165 


O0A5 


63 


3F 


IEEE 488 output character buffer 


166 


00A6 


255 


FF 


Key image 


167 


00A7 


1 


01 


Flag for cursor enable: 










0=Enable 










1=Disable 


168 


00A8 


17 


1 1 


Counter to flip cursor (20 to 1) 


169 


00A9 


32 


20 


Copy of character at current cursor position 


170 


OOAA 





00 


Flag for cursor on/off: 










O=cursor moved 










1 =--blink started 


171 


GOAB 





00 


Flag for tape write 


172 


OGAC 





00 


Flag for input source: 










O=keyboard buffer 










1 =^screen memory 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimsi 


HCX3d6CilT13l 


Decimdl 


Hexaoecimal 










OS PsQe Zero SstorsQe ((.'Ontinuedf 


173 


OOAD 





00 


1/0 utility; X save flag 


174 


OOAE 


1 


01 


Number of open files {index into tables) 


175 


OOAF 





00 


Default input device number (O=kevboard) 


176 


OOBO 


3 


03 


Default output device number |3=screen) 


177 


008 1 





00 


Tape parity byte 


178 


0062 





00 


Flag for byte received 


179 


00B3 





00 


I/O utility 


180 


00B4 





00 


Tape buffer character 


181 


0085 





00 


Byte pointer in filename transfer 


182 


0086 





00 


I/O utihty 


183 


0087 





00 


Serial bit count 


184 


00B8 





00 


Tape utility 


185 


0089 





00 


Cycle counter — flip for each bit read from 










tape 


186 


OOBA 





00 


Countdown synchronization on tape write 


187 


OOBB 





00 


Tape buffer 1 index to next character 


188 


ODBC 





00 


Tape buffer 2 index to next character 


189 


OOBD 





00 


Countdown synchronization on tape read 


190 


OOBE 





00 


Flag to indicate bil/byte tape error 


191 


GOBF 





00 


Flag to indicate tape error 










0=first hatf-byte marker not written 


1 92 


OOCO 





00 


Flag to indicate tape error 










0=2nd half-byte marker not written 


193 


OOCl 





00 


Tape dropout counter 


194 


00C2 





00 


Flag for cassette read current 










function 










0=scan, l-15==count. 










40i6=load. 80-i6=end 


195 


00C3 





00 


Checksum utility 


196-197 


00C4-00C5 


33728 


83CD 


Pointer to start of line where cursor is flash- 


198 


00C6 





00 


ing 

Column position where cursor is flashing 










(0- 79) 


199-200 


00C7-00CB 


33792 


8400 


Load start address: utility pointer 


201-202 


00C9-00CA 





0000 


Load end address 


203-204 


OOCB-OOCC 





00 


Tape timing constants 


205 


OOCD 





00 


Flag for quote mode 










O=not quote mode 


206 


OOCE 





00 


Flag for tape read timer enable 










0=disabled 


207 


OOCF 





00 


Flag for EOT received from tape 


208 


00 DO 





00 


Read character error 


209 


OODl 





00 


No, of characters in current file name 


210 


O0D2 


4 


04 


Current logical file number 


211 


00D3 


255 


FF 


Current secondary address 


212 


00D4 


4 


04 


Current device number 


213 


00D5 


39 


27 


Current screen line length (39, 79) 


214-215 


00D6-00D7 





0000 


Pointer to start of current tape buffer {634 or 










826) 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


216 


00D8 


24 


1 8 


Line number where cursor is flashing (0-24) 


217 


00D9 


1 


UM 


I/O storage: last key input, buffer 










checksum, bit buffer 


218-219 




u 


0000 


Pointer to current file name 






u 


00 


Number of Insert keys pushed to go 


221 


uuuu 





00 


Serial bit shift word 


222 


OODE 





00 


Number of blocks remaining to read/write 


223 


OODF 





00 


Serial word buffer 


224-248 


0OEO-0OF8 






High byte of screen line addresses 






128 


80 


224-230=128 (lines 1-7) 






129 


81 


231-236=129 (lines 8-13) 






1 30 


82 


237-243=130 (lines 14-20) 






131 


83 


244-248=131 (Imes 21-25) 


249 


00F9 





00 


Cassette #1 status switch 


250 


OOFA 





00 


Cassette #2 status switch 


251-252 


OOFB-OOFC 


54144 


D380 


Tape start address 


253-255 


OOFD-OOFF 


243 


F3 


Utility 








Page 1 ( 


256-511) 


256-up 


0100-up 


32 


20 


Tape read working storage (up to 51 1) and 










conversion storage 










256-318 For error correction in tape reads 










(62 bytes) 










256-266 Binary to ASCII conversion 










(1 1 bytes) 


51 1-down 


Ul rr-down 


44 


2C 


Stack (down to 256) 








Page 2-3 (512-1023) 


RIO RQT 








BASIC input line buffer (80 bytes) 






12597 


3135 


512-513 0200-0201 Program Counter 






50 


32 


514 0202 Processor status 









00 


515 0203 Accumulator 






171 


AB 


516 0204 X index 









00 


517 0205 Y index 









00 


518 0206 Stack pointer 






1 5104 


3B00 


51 9-520 0207-0208 User modifiable IRQ 


593-602 


0251-025A 


4 


04 


Table of logical numbers of open files 


603-612 


025B-0264 


4 


04 


Table of device numbers of open files 


613-622 


0265-026E 


255 


FF 


Table of secondary address modes of open 










files 


623-632 


026F-0278 


3 


03 


Keyboard buffer (10 bytes) 


633 


0279 


28 


1C 


Keyboard utility 


634-825 


027A-0339 


28 


1C 


Tape buffer for cassette #1 (192 bytes) 


826-1017 


033A-03F9 


173 


AD 


Tape buffer for cassette #2 (192 bytes) 


1018-1019 


03FA-03FB 


59383 


E7F7 


Vector for Machine Language Monitor 


1020-1023 


03FC-03FF 


195 


C3 


Utility space/unused 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










OS Page Zero Storage (Continued) 








rage 4- 1 zts 


1024-32767) 


1024-32767 


0400-7FFF 





00 


User program area and Expansion RAM 










4K PET: 1024-4095 0400-OFFF 










User program area 










4096-32767 1000-7FFF 










Expansion RAM 










8K PET: 1024-8191 0400-lFFF 










User program area 










8192-32767 2000-7FFF 










Expansion RAM 










16K PET: 1024-16383 0400-3FFF 










User program area 










16384-32767 4000-7FFF 










Expansion RAM 










32K PET: 1024-32767 0400-7FFF 










User program area 








Page 129-144 (32768-36863) 


32768-36863 


8000-8FFF 


32 


20 


TV RAM 










32768-33767 Display memory (1000 bytes) 








Page 145-192 (36864-491511 


36864-49151 


9000-BFFF 


144 


90 


Expansion ROM 








Page 193-232 BASIC (49152-59391) 










Pointers to BASIC Routines 


49152-49153 


C000-C001 


51008 


C740 


Pointer -1 to END* 


49154-49155 


C002-C003 


50775 


C657 


Pointer -1 to FOR 


49156-49157 


C004-C005 


52255 


CC1F 


Pointer -1 to NEXT 


49158-49159 


C006-C007 


51199 


C7FF 


Pointer --1 to DATA 


49160-49161 


C008-C009 


51878 


CAA6 


Pomter -1 to INPUT* 


49162-49163 


COOA-COOB 


51904 


CACO 


Pointer -1 to INPUT 


49164-49165 


COOC-COOD 


53090 


CF62 


Pointer -1 to DIM 


49166-49167 


COOE-COOF 


51974 


CB06 


Pointer -1 to READ 


49168-49169 


C010-C011 


51372 


C8AC 


Pointer -1 to LET 


49170-49171 


C012-C013 


51116 


C7AC 


Pointer -1 to GOTO 


49172-49173 


C014-C015 


51076 


C784 


Pointer -1 to RUN 


49174-49175 


C016-C017 


51247 


C82F 


Pointer —1 to IF 


49176-49177 


C018-C019 


50991 


C72F 


Pointer -1 to RESTORE 


49178-49179 


C01A-C01B 


51087 


C78F 


Pointer -1 to GOSUB 


49180-49181 


C01C-C01D 


51161 


C7D9 


Pointer -1 to RETURN 


49182-49183 


C01E-C01F 


51266 


C842 


Pointer -1 to REM 


49184-49185 


C020-C021 


51006 


C73E 


Pointer -1 to STOP 


49186-49187 


C022-C023 


51282 


C852 


Pointer -1 to ON 


49188-49189 


C024-C025 


55055 


D70F 


Pointer --1 to WAIT 


49190-49191 


C026-C027 


65492 


FFD4 


Pointer -1 to LOAD 


49192-49193 


C028-C029 


65495 


FFD7 


Pointer -1 to SAVE 


49194-49195 


C02A-C02B 


65498 


FFDA 


Pointer -1 to VERIFY 


49196-49197 


C02C-C02D 


53900 


D28C 


Pointer -1 to DEF 


49198-49199 


C02E-CD2F 


55046 


D706 


Pointer -1 to POKE 


49200-49201 


C030-C031 


51594 


C98A 


Pointer -1 to PRINT* 



■ These memory tocalions contain the address of the byte preceding the specified BASIC routines. 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


UBUIIIIal 


Mav aHo/^imal 




Hcxsdccinrisl 












49202-49203 


C032-C033 


51626 


C9AA 


Pointer -1 to PRINT 


49204-49205 


C034-C035 


51050 


C76A 


Pointer -1 to CONT 


49206-49207 


C036-C037 


50612 


C5B4 


Pointer -1 to LIST 


49208-49209 


C038-C039 


50550 


C576 


Pointer -1 to CLR 


49210-49211 


C03A-C03B 


51600 


C990 


Pointer -1 to CMD 


49212-49213 


C03C-C03D 


65501 


FFDD 


Pointer -1 to SYS 


49214-49215 


C03E-C03F 


65471 


FFBF 


Pointer -1 to OPEN 


49216-49217 


C040-C041 


65474 


FFC2 


Pointer -1 to CLOSE 


49218-49219 


C042-C043 


51836 


CA7C 


Pointer -1 to GET 


49220-49221 


C044-C045 


50522 


C55A 


Pointer -1 to NEW 


49222-49223 


C046-C047 


56133 


DB45 


Pointer to SGN " 


49224-49225 


C048-C049 


56280 


DBD8 


Pointer to INT 


49226-49227 


C04A-C04B 


56164 


DB64 


Pointer to ABS 


49228-49229 


C04C-C04D 





0000 


Pointer to USR pointer 


49230-49231 


C04E-C04F 


53849 


D259 


Pointer to FRE 


49232-49233 


C050-C051 


53882 


D27A 


Pointer to PCS 


49234-49235 


C052-C053 


56926 


DE5E 


Pointer to SQR 


49236-49237 


C054-C055 


57215 


DF7F 


Pointer to RND 


49238-49239 


C056-C057 


55542 


D8F6 


Pointer to LOG 


49240-49241 


C058-C059 


57050 


DFDA 


Pointer to EXP 


49242-49243 


C05A-C05B 


57304 


DFD8 


Pointer to COS 


49244-49245 


C05C-C05D 


57311 


DFDF 


Pointer to SIN 


49246-49247 


C05E-C05F 


57384 


E028 


Pointer to TAN 


49248-49249 


C060-C061 


57484 


E08C 


Pointer to ATN 


49250-49251 


C062-C063 


55016 


D6E8 


Pointer to PEEK 


49262-49253 


C064-C065 


54870 


D656 


Pointer to LEN 


49254-49255 


C066-C067 


54079 


D33F 


Pointer to STR$ 


49256-49257 


C068-C069 


54919 


D687 


Pointer to VAL 


49258-49259 


C06A-C06B 


54885 


D664 OiU 


■ Pointer to ASC 


49260-49261 


C06C-C06D 


54726 


D5C6 TjLci 


^ Pointer to CHR$ 


49262-49263 


C06E-C06F 


54746 


D5DA 


Pointer to LEFTS 


49264-49265 


C070-C071 


54790 


D606 


Pointer to RIGHTS 


49266-49267 


C072-C073 


54801 


D611 


Pointer to MID$ 


49268-49297 


C074-C091 






Hierarchy and action addresses for opera- 










tors 


49298-49553 


C092-C191 






Table of BASIC keywords 


49554-49833 


C192-C2A9 






BASIC error messages 




















BASIC Routines 










starting Address Function 


49834-59343 


C2AA-DFFF 






49834 C2AA FOR. . . NEXT stack 










check 










49880 C2D8 Insert line space 










marker 










49947 C31B Stack overflow 










check 










49960 C328 Error message 










abort 










50057 C389 READY 










50091 C3AB Handle new line 



" These memory locations contain the address of the first byte of the specified BASIC routines 
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Memory Address 


Sample Value 


Description 


Decimat 


Hexadecimal 


Decimal 


Hexadecimal 










BASIC Routines (Continued) 










Starting Address 


Function 










50242 


C442 


Rechain lines after 














insert/delete 










50287 


C46F 


Input line 










50325 


C495 


Keyword encoder 










50476 


C52C 


Line number search 










50523 


C55B 


NEW 










50551 


C577 


CLR 










50599 


C5A7 


Set pointer to start 














of program 










50613 


C5B5 


LIST 










50776 


C658 


FOR 










50944 


C700 


Statement execute 










50992 


C730 


RESTORE 










51007 


C73F 


STOP 










51009 


C741 


END 










51051 


C76B 


CONT 










51077 


C785 


RUN 










51088 


C790 


GOSUB 










51 1 17 


C7AD 


GOTO 










51162 


C7DA 


RETURN 










51200 


C800 


DATA 










51214 


C80E 


Scan for next BASIC 














statement 










51217 


C811 


Scan for next BASIC line 










51248 


C830 


IF 










51267 


C843 


REM 










51283 


C853 


ON 










51315 


C873 


Number fetch 










51373 


C8AD 


LET - 










51496 


C928 


Add ASCII digit to 














Accumulator ^1 










51595 


C98B 


PRINT* 










51601 


C991 


CMD 










51627 


C9AB 


PRINT 










51740 


CA1C 


Print ctrinn 
null all II iLj 






1 




51769 


CA39 


Print character 










51791 


CA4F 


Inniit Hata orrr^r 
liipul UdLd C1 1 Ui 










51837 


CA7D 


GET 










51879 


CAA7 


INPUT* 










51962 


CAFA 


Input pronnpt 










51975 


CB07 


READ 










52220 


CBFC 


Error messages 










52256 


CC20 


NEXT 










52345 


CC79 


Format checker 










52383 


CC9F 


Expression evaluator 










53091 


CF63 


DIM 










53101 


CF6D 


Variable table lookup 










53249 


DOOl 


Create new variable 










53420 


DOAC 


Array table search/ 














create array 



341 



Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 



Decimal 



Hexadecimal 



Sample Value 



Decimal 



Hexadecimal 



Description 



BASIC Routines (Continued) 
Starting Address Function 



53849 


D259 


FRE 


53869 


D26D 


Integer-to-floating 


53882 


D27A 


POS 


53888 


D280 


Valid direct checl< 


53901 


D28D 


DEF 


54079 


D33F 


STR$ 


54726 


D5C6 


CHR$ 


54746 


D5DA 


LEFTS 


54790 


D606 


RIGHTS 


54801 


D611 


MID$ 


54870 


D656 


LEN 


54885 


D665 


ASC 


54919 


D687 


VAL 


54994 


D6D2 


Floating-to-integer 


55016 


D6E8 


PEEK 


55047 


D707 


POKE 


55056 


□710 


WAIT 


55091 


D733 


Subtraction 


55150 


D76E 


Addition 


55542 


D8F6 


LOG 


55607 


D937 


Multiplication 


55704 


D998 


Load number to AFAC 


55818 


DAOA 


Division 


55982 


DAAE 


Load Accumulator (FAC) 


56030 


DADE 


Store FAC — 


56072 


DB08 


Copy AFAC to FAC 


56088 


DB18 


Copy FAC to AFAC 


56133 


DB45 


SGN 


' 56164 


DB64 


ABS 


1 56280 


DBD8 


INT 


56526 


DCCE 


IN line message 


56553 


DCE9 


Numeric-to-ASCII 


56319 


DBFF 


String-to-floating 


56926 


DE5E 


SQR 


56936 


DE68 


Power function 


57050 


DEDA 


EXP 


57215 


DF7F 


RND 


57304 


DFD8 


COS 


5731 1 


DFDF 


SIN 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memery Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










Screen Editor 










Starting Addross Function 


57344-5391 


E000-E7FF 






^ 57384 E028 TAN 










- 57484 E08C ATN 










57593 E0F9 Subroutine to be moved to 










page ($70-$87) 










57617 El 11 Initial RND seed (5 bytes) 










57622 El 16 Initialize BASIC system 










57897 E229 Clear screen 










57943 E257 Home cursor 










57989 E285 Character fetch 


58100-58906 


E2F4-E61A 






Video driver 










58100 E2F4 Input from screen 










58175 E33F Quote mode ($CD) switcher 










58188 E34C Print character 










58687 E53F Scroll 1 line 


58907-59113 


E61B-E6E9 






Interrupt Handler 


59114-59127 


E6EA-E6F7 






Keyboard Scan 


59128-59241 


E6F8-E769 






Keyboard Encoding Table 


59242-59391 


E76A-E7FF 






Subroutines for Machine Language Monitor 




Page 233-24 


I/O Ports and 


:xpansion I/O (P 


A's and VIA) (59392-61439) 










Keyboard PIA (59408-59411) 


59408 


EBIO 


249 


F9 


I/O Port A and Data Direction register 


59409 


E81 1 


60 


3C 


Control Register A — screen blanking 










oz— bcreen ott tblanked; 










60=Screen on 










I/O Port B and Data Direction register 


59410 


E812 


255 


FF 


255~all keys excepts 










254-RVS key 










253-[ key 










251 -SPACE key 










247= < key 










Control Registers B — #1 cassette motor 


5941 1 


E813 


61 


3D 


53=motor on 










61 —motor off 










IEEE Port PIA (59424-59427) 


59424 


E820 


255 


FF 


I/O Prirt A anH Plata riiroi^tinn ronictor 










PFFK C^^AOA) rpadt; innut data 


59425 


E821 


188 


BC 


f^f^ntrf^l Roi^iQtor A cot j^iitniit hno f^A^ 

^Ulill^JI nu^roLCl r\ — ot^L UUipUl Mile v-« rA 




















POKE 59425.60=high 


59426 


E822 


255 


FF 


I/O Port B and Data Direction registers 










POKE 59426. data writes output data 










POKE 59426.255 before a read to Port A 


59427 


E823 


60 


3C 


Control Register B — set output line CB2 










POKE 59427,B2-low 










POKE 59427,60=high 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 


Sample Value 




Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










ParaHel User Port VIA 










(59456-59471) 


59456 


E840 


223 


DF 


I/O Port B 










207=4^2 cassette motor on 










223~4^2 cassette motor off 










WAIT RQ4Rfi 7? waif; fnr vprtiral 










retrace of displ3y 










Bit 1=PB1 (NFRD on IEEE connector) 










output line 










Bit 3=PB3 .(ATN on IEEE connector) 










output line 


59457 


E841 


255 


FF 


1 /O Port A \A/ ith h:rinHcha^in/^ 


59458 


E842 


30 


IE 


Data Direction register for I/O Port B 


59459 


E843 





00 


Data Direction register for I/O Port A 










For each bit 1=output. O^input 










=n :^ 1 1 i nni it 
V/ oil 1 1 i|J u I 










=255 all output 


59460-59461 


E844-E845 


29241 


7239 


(Low high order) Read Timer 1 Counter 










\A/ri tP to T 1 mo f 1 1 jiitr^K anH fhinh hv/tol 
VVI1LC i\j iiniei 1 LaiLiii oiiu \iiiyii uyio 










initiate count 


59462-59463 


E846-E847 


65535 


FFFF 


(Low, high order) Read Timer 1 Latch 


59464 


E848 


147 


93 


RpaH Timpr 7 PmintPr Iova/ h\/t(i anH r*iccit 










interrupt; write to Timer 2 low byte 










PEEK (59464) Clock decrements every 










microsecond 










POICF RQ4R4 n cote QR ruta r\f chift from 
r WlxC □ J'+0'+,r 1 be Lb on rdlc 01 brllll iFOm 










high (n— 0) to low (n— 255) for music from 










User Port 


59465 


E849 


217 


D9 


Read Timer 2 Counter high byte write to 










Timer 2 high byte and reset interrupt 










PFFK (RQAfiRl C\nri( Hprrpmpntt; pvptw 










m 1 1 1 isecond 


59466 


E84A 





00 


Serial I/O Shift register (SR) 










POKE 59466, 15 or 85 to generate 










'^miarp VA/a\/P riiitriiil at (^R'P fnr nla\/inn 
ov^uoit:; wave LJUL|JUL at \jL}^ iui i^iayiFiy 










music from User Port 


59467 


E84B 





00 


AiiYiliaru f^nntrnl rooictor 

rAUAIMaiy ^-fiJIILIL'l Ic^iolcl 










~16 Sets SR to free'running mode for 










music from User Port 










—0 for proper operation of tape drive 


59468 


E84C 


14 


OE 


Peripheral Control register 










= 12 for graphics on shifted 










characters 










= 14 for lower-case letters on shifted 










characters 


59469 


E84D 





00 


Interrupt Flag register 


59470 


E84E 


128 


80 


Interrupt enable register 


59471 


E84F 


255 


FF 


I/O Port A without handshaking 




F 


'age 241-256 Operating System (61440-65535) 


61440-61621 


F000-F0B5 






Monitor messages 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 


Sample 


Valu6 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










GPIB Handler (IEEE 488 Bus} 










Starting Address Function 


61622-61904 


F0B6-F1D0 






61622 


F0B6 


Setup for Listen, Talk, etc. 










61678 


FOEE 


Send character 










61 736 


Fl 28 


Output character 














immediate mode 










61 750 


Fl 36 


Error messages 










61 796 


Fl 64 


Send immediate 














Listen command, 














then secondary 














address 










61 807 


F1 6F 


Output characters 










61 823 


Fl 7F 


Send Unlisten/ 














uniaiK 










61 836 


r 1 


Input character 














File Control 


61905-63493 


F1D1-F805 






61905 


FlDl 


Get a character 














(without cursor) 










61921 


FlEl 


Input a character 














(with cursor! 










62002 


F232 


Output a character 














to any device 










62062 


F26E 


Close all files 










62066 


F272 


Restore default i/0 devices 










62121 


F2A9 


CLOSE 










62209 


F301 


STOP search 










62223 


F30F 


STOP key 










62229 


F315 


Direct mode test 










62402 


F3C2 


LOAD 










62474 


F40A 


Display filename/ 














fetch file number 










62526 


F43E 


Fetch LOAD/SAVE 














parameters 










62560 


F460 


Fetch byte paramter 










62566 


F466 


Send program name 














to GPIB 










62612 


F494 


Tape header search 










62647 


F4B7 


VERIFY 










62670 


F4CE 


Fetch OPEN/CLOSE 














parameters 










62753 


F521 


OPEN 










62886 


F5A6 


Find any tape 














header 










62938 


F5DA 


Write tape header 










63036 


F63C 


Process tape header 










63108 


F684 


SYS 










63134 


F69E 


SAVE 










63273 


F729 


Clock update 










63344 


F770 


Set input device 










63420 


F7BC 


Set output device 
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Memory Address 


Sample Value 


Description 


Decinfisl 


Hexedecitusl 


Decimal 














Tape Control 


63494-64720 


F806-FCD0 






63494 F806 Advance tape buffer 










pointer 










Doo't i roJD kjnecK Tor Labbcim uii 










63573 F855 Tape read to buffer 










63622 F886 Write block to tape 










63716 F8E6 Interrupt wait 










Pow6r-on Diagnostics 


64721-64784 


FCD1-FD10 






64721 FCDI System reset 










SYS(64721) simulates 










power-on reset. 










64766 FCFE NMI interrupt entry point 


64785-65471 


FD11-FFBF 






fi476Q FDOI Tahip nf intprnint 

\j'-r / yj-J IL^WI laUl^ Ul IMLcllU^/l 










vectors 










Machine Language Monitor 










Jump Vectors 


65472-65474 


FFC0-FFC2 


76 62753 


4C F521 


JIVIr L/rtiN 


65475-65477 


FFC3-FFC5 


76 62121 


4C F2A9 


IMP r\ ncc 


65478-65480 


FFC6-FFC8 


76 63344 


4C F770 


JMP Set Input Device 


65481-65483 


FFC9-FFCB 


76 63420 


4C F7BC 


JIVIr oei uuipuT uevice 


65484-65486 


FFCC-FFCE 


76 62066 


4C F272 


JIVIr nesiore ueTauii i/u uevices 


65487-65489 


FFCF-FFD1 


76 61 921 


4C F1E1 


JMr Input Character — nUI 


65490-65492 


FFD2-FFD4 


76 62002 


4C F232 


JMr uutput Lnaracter — Wn i 


65493-65495 


FFD5-FFD7 


76 62402 


4C F3C2 


JMP LUAL) 


65496-65498 


FFD8-FFDA 


76 63134 


4C F69E 


JMr bAVb 


65499-65501 


FFDB-FFDD 


76 62647 


4C F4B7 


JMP VERIFY 


DDDUZ-DOuU^ 


rrUb-hrbU 


/ O DO 1 UO 




JMP SYS 


DDuUO-DOOU / 


FFE1 -FFE3 


/D oz*;/o 


4C F30F 


JMP Test STOP Key 


65508-65510 


FFE4-FFE6 


76 61905 


4C F1D1 


JMP Get Ctiaracter 


65511-65513 


FFE7-FFE9 


76 62062 


4C F26E 


JMP Close all files 


65514-65516 


FFEA-FFEC 


76 63273 


4C F729 


JMP Clock Update 










6502 Interrupt Vectors 


65530-65531 


FFFA-FFFB 


65766 


FCFE 


Non-maskable interrupt {NMD 


65532-65533 


FFFC-FFFD 


64721 


FCDI 


System reset (RESET) 


65534-65535 


FFFE-FFFF 


58907 


E61B 


Interrupt request break (IRQ-FBRK) 
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APPENDIX A 



PET ASCII Codes 



Appendix A is a detailed chart illustrating the characters and cursor controls 
of the PET and CBM connputer. The left side of the chart shows the standard and 
alternate character sets for the PET with a graphic keyboard and the CBM with a 
full-size keyboard. The right three colunnns show each character's corresponding 
ASCII and PEEK/POKE. The characters are arranged in ascending sequence by 
their PET ASCII number, or by their PEEK/POKE number if the character does not 
have a PET ASCII number. Many characters appear twice because they have two 
PET ASCII numbers. 

STANDARD CHARACTER SET : The Standard Character Set is made up of the 
characters normally displayed when the PET is powered up. 

GRAPHIC KEYBOARD: This column represents the Standard Character Set 
of all PET'S with graphic symbols displayed upon the keyboard. This set is in effect 
when the PET is powered up or when value 12 is poked into memory location 
59468 by a POKE 59468,12. When in effect, all the characters shown on the 
keyboard, the upper-case letters, numbers, and graphic characters are available. 

CBM KEYBOARD: This column represents the Standard Character Set of the 
CBM version of the PET without graphics displayed on the keyboard. This set is in 
effect when the CBM is powered up or when value 14 is poked into memory loca- 
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tion 59468 by a POKE 59468,14. When in effect, all the characters shown on the 
keyboard, upper (with shift) and lower-case letters, numbers and some symbols 
are available. The CBM standard character is only represented if it differs from the 
standard graphic keyboard character. Otherwise, if the column is blank, you may 
assume that the graphic and typewriter standard character is the same. 

ALTERNATE CHARACTER SET : The Alternate Character Set is all the characters 
displayed only after poking the alternate set into effect with a POKE 59468,xx. 

GRAPHIC KEYBOARD: This column represents the alternate character set of 
all PETs with graphic symbols displayed upon the keyboard. This set is activated 
only after poking value 14 into memory location 59468 by a POKE 59468,14. 
When in effect, upper AND lower-case letters, numbers and most of the graphic 
characters are available, along with some special graphic characters not illus- 
trated on the keyboard. 

CBM KEYBOARD: This column represents the Alternate Character Set of 
the CBM version of the PET without graphics displayed on the keyboard. This set 
is activated only after poking value 12 into memory location 59468 by a POKE 
59468,12. When in effect, upper and lower-case letters, numbers, AND the 
graphic characters are available. Again, the CBM character is represented only if 
the character differs from the graphic keyboard character. If the column is blank, 
you may assume that the graphic and typewriter alternate character is the same. 

PET ASCII : As you recall from the discussion of the CHR$ function in Chapter 5, 
ASCII stands for the "American Standard Code for Information Interchange." 
Commodore developed its own ASCII code for the PET (and CBM) computer to 
include its unique graphic characters. We will call this special ASCII code PET 
ASCII. Two PET functions, ASC( ) and CHR$( ) use the PET ASCII decimal numbers 
to reference its characters. The PET ASCII code column enables you to find a 
character's PET ASCII number quickly by finding the desired character and look- 
ing across the chart for its PET ASCII number. Although both the PET ASCII 
decimal (DEC) number from to 255, and the hexadecimal (HEX) number from 00 
to FF are given, when using the ASC( ) or CHR$( ) functions, use only the decimal 
ASCII number. The last portion of the chart, the reverse characters, do not have 
PET ASCII numbers, and thus are arranged by their PEEK/POKE numbers, as ex- 
plained in the next section. 

PEEK/POKE : The PEEK/POKE code is the number that must be used when either 
POKEing a character to the screen, or when PEEKING into memory to see what 
character is contained in a specified memory location; the number returned will 
be the PEEK/POKE number representing that character. Notice that in most cases 
the PEEK/POKE number is not the same as the decimal ASCII number. This code 
number CANNOT be used with ASCII functions, only with PEEK and POKE. The 
PEEK/POKE code numbers do not appear in strict ascending sequence until the 
reverse characters portion of the chart. At this point, the chart is arranged in 
ascending PEEK/POKE order because the reverse PET characters lack PET ASCII 
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numbers, and without PRINT statennents can only be referenced with PEEKs or 
POKES. 



Standard 
Character Set 

PET CBM 



Alternate 
Character Set 

PET CBM 



PET ASCII 
DEC HEX 



PEEK/ 
POKE 



STOP 



STOP 



RETURN 



CRSRt 
RVS 
HOME 
DELETE 



RETURN 



CRSRi 
RVS 
HOME 
DELETE 



CRSR— 



CRSR— 







1 


01 


2^ 


02 


3 


03 


4 


04 


5 


05 


6 


06 


— 7 

7 




B 


08 


S 


09 


\ (yi 
I KJ 


tJn 


J. 1 




1 


tar' 


1 o 

X ■-' 












1 1-" 

1 o 


1 ^ 


1 

X 1 


1 1 

X X 


1 o 


1 

1 d. 


19 


13 


20 


14 


21 


15 


2 k' 


16 


23 


17 


24 


18 


25 


19 


26 


Ifl 


27 


IB 


28 


IC 


23 


ID 


30 
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Standard Alternate PET ASCII PEEK/ 

Character Set Character Set POKE 
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Standard Alternate PET ASCII PEEK/ 

Character Set Character Set POKE 
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standard 
Character Set 



Alternate 
Character Set 



PET ASCII 



PEEK/ 
POKE 



PET CBM 


PET CBM 
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HEX 
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Alternate 


PET ASCII 


PEEK/ 


Character Set 


Character Set 






POKE 
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8F 
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82 
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83 
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Standard Alternate PET ASCII PEEK/ 

Character Set Character Set POKE 



PET 
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DEC 
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standard Alternate PET ASCII PEEK/ 

Character Set Character Set POKE 
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HEX 
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1 
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72 


-. 
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C9 
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J 
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74 
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Standard Alternate PET ASCII PEEK/ 

Character Set Character Set POKE 
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Standard Alternate PET ASCII PEEK/ 

Character Set Character Set POKE 
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APPENDIX B 



PET Error Messages 



Error messages may be displayed in response to just about anything you 
may key in at the PET keyboard or when your program is running. Both the PET 
BASIC interpreter and the operating system issue error messages, listed sepa- 
rately below. 

Whenever the PET BASIC interpreter detects an error, it displays a diag- 
nostic message, headed by a question mark, in the general form; 

?message ERROR IN LINE number 

where message is the type of error (listed alphabetically below) and number is the 
line number in the program where the error occurred (not present in immediate 
mode). Following any error message, BASIC returns to immediate mode and gives 
the prompt: 

READY. 

PET BASIC error messages are listed below, with two descriptive 
paragraphs: the first describes the cause of the error, and the second discusses 
possible ways of correcting the error. 
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BASIC Error Message 

Error Message 
BAD SUBSCRIPT 



CANT CONTINUE 



DIVISION BY ZERO 



FORMULA TOO COMPLEX 



Cause and Suggested Remedies 

An attennpt was made to reference an array 
element that is outside the dimensions of the 
array. This may happen by specifying the 
wrong number of dimensions (different from 
the DIM statement), using a subscript larger 
than specified in the DIM statement or using a 
subscript larger than 10 for a non-dimen- 
sioned array. 

Correct the array element number to remain 
within the original dimensions, or change the 
array size to allow more elements. 

A CONT command was issued, but program 
execution cannot be resumed because the 
program has been altered, added to or cleared 
in immediate mode, or execution was stopped 
by an error. Program execution cannot be con- 
tinued past an error message. 

Correct the error. The most prudent course 
is to type RUN and start over. However, you 
can attempt to reenter the program at the 
point of interruption by a directed GOTO. 

An attempt was made to perform a division 
operation with a divisor of zero. Dividing by 
zero is not allowed. 

Check the values of variables (or constants!) 
in the indicated line number. Change the pro- 
gram so that the divisor can never be evalu- 
ated to zero or add a check for zero before per- 
forming the division. 

This is not a program error but indicates 
that a string expression in the program is too 
intricate for PET BASIC to handle. 

Break the indicated expression into two or 
more parts and rerun the program (this will 
also tend to improve program readability). 



362 



Error Message 



Cause and Suggested Remedies 



ILLEGAL DIRECT 



ILLEGAL QUANTITY 



NEXT WITHOUT FOR 



OUT OF DATA 



A command was given in immediate (direct) 
mode that is valid only in program mode. The 
following are invalid in immediate mode: 
DATA, DEF FN. GET, GET#, INPUT, INPUT#. 

Enter the desired operation as a (short) pro- 
gram and RUN it. 

A function is passed one or more 
parameters that are out of range. This 
message also occurs if the USR function is 
referenced before storing the subroutine ad- 
dress at memory locations 1 and 2. 

Check the ranges given in Chapter 4 for the 
function in question. Change the program to 
be sure that the argument will always be with- 
in range, or add a check before the function 
reference to make sure that the argument is 
allowed. If USR error, insert statements to 
POKE the subroutine address before the USR 
reference. 

A NEXT statement is encountered that is 
not tied to a preceding FOR statement. Either 
there is no FOR statement or the variable in 
the NEXT statement is not in a corresponding 
FOR statement. 

The FOR part of a FOR . . . NEXT loop must 
be inserted or the offending NEXT statement 
deleted. Be sure that the index variables are 
the same at both ends of the loop. 

A READ statement is executed but all of the 
DATA statements in the program have already 
been read. For each variable in a READ state- 
ment, there must be a corresponding DATA 
element. 

Add more DATA elements or restrict the 
number of READs to the current number of 
DATA elements. Insert a RESTORE statement 
to reread the existing data. Or add a flag at the 
end of the last DATA statement (any value not 
used as a DATA element may be used for the 
flag value) and stop READing when the flag 
has been read. 
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Error Message 
OUT OF MEMORY 



OVERFLOW 



REDIM'D ARRAY 



REDO FROM START 



Cause and Suggested Remedies 

The user program area of memory has been 
filled and a request is given to put more in, 
e.g., add a line to the program. This message 
may also be caused by multiple FOR . . . NEXT 
and/or GOSUB nestings that fill up the Stack; 
this is the case if ?FRE(0) shows considerable 
program area storage left. 

Simplify the program. Pay particular atten- 
tion to reducing array sizes. It may be necess- 
ary to restructure the program into overlays. 

A calculation has resulted in a number out- 
side the allowable range, i.e., the number is 
too big. The largest number allowed is 
1.70141 184E-F38. 

Check your calculations. It may be possible 
to eliminate this error just by changing the 
order in which the calculations are pro- 
grammed. 

An array name appears in more than one 
DIM statement. This error also occurs if an ar- 
ray name is used (given a default size of 11) 
and later appears in a DIM statement. 

Place DIM statements near the beginning of 
the program. Check to see that each DIM 
statement is executed only once. DIM must 
not appear inside a FOR . . . NEXT loop or in a 
subroutine where either may be executed 
more than once. 

This is a diagnostic message during ah IN- 
PUT statement operation and is not a fatal er- 
ror. It indicates that the wrong type of data 
(string for numeric or vice versa) was entered 
in response to an INPUT request. 

Reenter the correct type data. INPUT will 
continue prompting until an acceptable 
response is entered. 
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Error Message 
RETURN WITHOUT GOSUB 



STRING TOO LONG 



SYNTAX 



TYPE MISMATCH 



UNDEF'D STATEMENT 



Cause and Suggested Remedies 

A RETURN statement was encountered 
without a previous matching GOSUB state- 
ment being executed. 

Insert a GOSUB statement or delete the 
RETURN statement. The error may be caused 
by dropping into the subroutine code inadver- 
tently. In this case correct the program flow. 
An END or STOP statement placed just ahead 
of the subroutine serves as a debugging aid. 

An attempt was made by use of the con- 
catenation operator (-I-) to create a string 
longer than 255 characters. 

Break the string into two or more shorter 
strings as part of the program operation. Use 
the LEN function to check string lengths 
before concatenating them. 

There is a syntax error in the line just en- 
tered (immediate mode) or scanned for execu- 
tion (program mode). This is the most com- 
mon error message, and is caused by such 
things as misspellings, incorrect punctuation, 
unmatched parentheses, extraneous charac- 
ters, etc. 

Examine the line carefully and make correc- 
tions. Note that syntax errors in a program are 
diagnosed at run time, not at the time the lines 
are entered from the keyboard. You can elimi- 
nate many syntax error messages by carefully 
scrutinizing newly entered program lines 
before running the program. 

An attempt was made to enter a string into 
a numeric Assignment variable or vice versa, 
or an incorrect type was given as a function 
parameter. 

Change the offending item to correct type. 
Refer to Chapter 4 for acceptable parameter 
types. 

An attempt was made to branch to a nonex- 
istent line number. 

Insert a statement with the necessary line 
number or branch to another line number. 
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Error Message Cause and Suggested Remedies 

UNDEF'D FUNCTION Reference was nnade to a user defined func- 

tion that has not previously been defined by 
appearing in a DEF FN statement. The defini- 
tion must precede the function reference. 

Define the function. Place DEF FN state- 
ments near the beginning of the program. 



OPERATING SYSTEM ERROR MESSAGES 

BAD DATA String data was input when numeric data 

was expected. 

Correct the input data to numeric, or 
change the program to accept string input. 

DEVICE NOT PRESENT No device on the IEEE 488 Bus was present 

to handshake an attention sequence. The 
Status function will have a value of 2, indicat- 
ing a timeout. This message may occur for any 
I/O command. 

If the device identification is in error, correct 
the OPEN (or other) statement. If the state- 
ment is correct, especially if it has worked 
before, check the addressed device for mal- 
function, misconnection, or power off. 

FILE NOT FOUND The filename given in the LOAD or OPEN 

statement was not found on the tape (or other 
specified device). 

Check that you have the correct tape in the 
cassette. Check the filenames on the tape (or 
other medium) for possible spelling error in 
the program statement. 

FILE NOT OPEN An attempt was made to access a file that 

was not opened via the OPEN statement. 
Open the file. 

FILE OPEN An attempt was made to open a file that has 

already been opened via a previous OPEN 
statement. 

Check logical file numbers (first parameter 
in the OPEN statement) to be sure a different 
number is used for each file. Insert a CLOSE 
statement if you want to reopen the same file 
for a different I/O operation. 
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Error Message 



Cause and Suggested Remedies 



LOAD 



NOT INPUT FILE 



NOT OUTPUT FILE 



VERIFY 



An unacceptable nunnber of tape errors 
were accunnulated on a tape load (more than 
31) that were not cleared on reading the re- 
dundant block. This message is issued in con- 
nection with the LOAD command (see 
Chapter 4). 

An attempt was made to read from a file 
that has been opened for output only. 

Check the READ# and OPEN statement 
parameters for correctness. Reading requires a 
zero as the third parameter of the OPEN state- 
ment (this is the default option). 

An attempt was made to write to a file that 
has been opened for input only. 

Check the PRINT# and OPEN statement 
parameters for correctness. Writing to a file 
requires a 1 (or a 2 if you want an EOT at the 
end of the file) as the third parameter in the 
OPEN statement. 

The program in memory and the specified 
file do not compare. This message is issued in 
connection with the VERIFY command (see 
Chapter 4). 
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APPENDIX C 



Program Examples Solved 



This appendix contains the solutions to the progrannming problems pre- 
sented at the conclusion of Chapter 3. The original program BLANKET as 
developed in Chapter 3 is listed first. The program variations that follow are based 
on modifying this original program according to the tasks presented in Chapter 3, 
For each program modification the program name is shown, followed by a pro- 
gram listing of the modified program. The Changes identify those lines in the orig- 
inal program that have been added, changed, or deleted. Under Comments is a 
description of the modifications that have been made. 
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BLANKET 



le REN ******* ELAN K E T ******* 
20 REM CONTINUOUS-LINE DISPLflV OF OME 
30 REM CHflRflCTER ENTERED FROM THE 
40 REM KEVBORRD 

50 REM ******************************* 

90 PRINT "HIT fi KEV OR ;:R> TO END"; 

100 GET C*-IF €■$="" GOTO lOO 

105 IF C*=CHR*<13> GOTO 170 

110 PR I NT ":]".: REM CLEAR SCREEN 

120 FOR 1=1 TO 920 : REM 920/40=23 LINES 

130 PRINT Ct; 

140 NEXT 

150 PR I NT "PHEW! " 

1 60 GOTO 90 

170 END 

Program 1, CLEAN SCREEN. 

5 REM PROGRAM 1 CLEAN SCREEN 
10 REM ******* E L A N K E T ******* 
20 REM CONTINUOUS-LINE DISPLAV OF ONE 
30 REM CHARACTER ENTERED FROM THE 
40 REM KEVBORRD 

50 REM ******************************* 

30 PR I NT "H".; 

90 PRINT "HIT A KEV OR <R> TO END"; 

100 GET C*:IF Ct="" GOTO lOO 

105 IF C*=CHRt<:i3> GOTO 170 

110 PRINT".^"; REM CLEAR SCREEN 

120 FOR 1=1 TO 920 REM 920/40=23 LINES 

130 PRINT 

140 NEXT 

150 PR I NT "PHEW! " 
160 GOTO 90 
170 END 

Changes 

Add: Lines 5, 80 

Change: None 
Delete: None 

Comments 

This is an easy change. All you have to do is print a Clear Screen literal 
before the HIT A KEY nnessage. The reset of the progrann stays the same. 
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Program 2, MESSAGES. 



5 REM PROGRAM 2 MESSFlGES 
10 REM ******* ELAN K E T ******* 
20 REM CONTINUOUS-LINE DISPLflV OF ONE 
30 REM CHRRflCTER ENTERED FROM THE 
40 REM KEVBOfiRD 

50 REM ******************************* 

90 PR I NT "HIT fl KEV".; 

100 GET C*:IF C*="" GOTO 100 

105 IF C*=CHR*<13> GOTO 170 

110 PRINT":!".; ' REM CLEAR SCREEN 

120 FOR 1=1 TO 920 : REM 920/40=23 LINES 

130 PRINT C*.; 

140 NEXT 

150 PR I NT "PHEW! " 

155 PR I NT "HIT A KEV OR <R:> TO END"; 
160 GOTO 100 
170 END 



Comments 

This is also an easy change. First change the original message at line 90 to 
the shortened, initial message. Then add the repeating message to print at the end 
of the sequence just before the branch bacl< at line 160. You also have to change 
the GOTO at line 160 to branch below the initial message line. 



Changes 



Add: 

Change 

Delete: 



Lines 5, 155 
Lines 90, 160 
None 
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Program 3, SINGLE. 



5 REM PROGRAM 3 SINGLE 

10 REM ******* B L fi N K E T ******* 
20 REM CONTIHUOUS-LINE BISPLfiV OF ONE 
30 REM CHRRflCTER ENTERED FROM THE 
40 REM KEVEOfiRD 

50 REM ******************************* 
90 PRINT "HIT B KEV OR <R:> TO END".: 
100 GET C*:IF C*="" GOTO lOO 
105 IF C;*=CHR*<:i3> GOTO 170 
110 PR I NT ".T'.: REM CLEAR SCREEN 

120 FOR 1 = 1 TO 960 REM 960.-'40=24 LINES- 
IS© PRINT C*; 
140 NEXT 
150 PR I NT "PHEW! 
160 GOTO 90 
170 END 



Comments 

To combine the messages, add a semicolon (for continuous-line format) 
following the PHEW! message. The ten spaces were added following this word, 
but they could just as well have been put ahead of the second message. The FOR 
. . . NEXT ending count of 920 gives 920/80=23 lines. To get 24 lines, change 
the 920 to 960. 



Changes 



Add: 



Line 5 

Lines 120, 150 
None 



Change: 
Delete: 
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Program 4. CALLING YOU. 



5 REM PROGRAM 4 CALLING VOU 
10 REM ******* BLANKET ******* 
20 REM CONTINUOUS-LINE DISPLAY OF ONE 
30 REM CHARACTER ENTERED FROM THE 
40 REM KEVBOARD 

50 REM ******************************* 

60 GOSUB 90 
70 END 

90 PRINT"HIT A KEY OR <:R> TO END"; 

100 GET C*:IF C*="" GOTO 100 

105 IF C*=CHR*<:13> GOTO 170 

lie PRINT'TJ".; :REM clear SCREEN 

120 FOR 1=1 TO 920 : REM 920/40=23 LINES 

130 PRINT C*; 

140 NEXT 

150 PR I NT "PHEW! " 

160 GOTO 90 

170 RETURN 



Comments 

The program from line 90 through line 1 70 can be structured as a subroutine 
simply by changing line 1 70 from an END to a RETURN. Add a two-line main pro- 
gram just ahead of the subroutine to call it by a GOSUB 90 and then END. Note 
that the subroutine maintains control until the RETURN key is struck. 



Changes 



Add: 

Change: 

Delete: 



Lines 5, 60, 70 
Line 170 
None 
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Program 5, SLOW DOWN. 



5 REM PROGRflM 5 SLOW nOWN 
le REM *♦**#*♦ B L Fl N K E T ******* 
20 REM CONTINUOUS-LINE DISPLflV OF ONE 
30 REM CHflRflCTER ENTERED FROM THE 
40 REM KEVBOfiRIi 

50 REM ******************************* 

90 PRINT"HIT Fl KEV OR <R> TO END".: 

100 GET C*:IF C*="" GOTO 100 

105 IF C*=CHR*<:i3> GOTO 170 

110 PR I NT ".TV; REM CLEAR SCREEN 

120 FOR 1=1 TO 920 ^ REM 920/40=23 LINES 

130 PRINT C*.; 

135 FOR J=l TO 10 -NEXT J : REM DELFlV 

140 NEXT I 

150 PR I NT "PHEW! " 

160 GOTO 90 

170 END 



Comments 

A "do-nothing" FOR . . . NEXT loop acts as a simple delay loop. Looping 
fronn 1 to 10 after each character print approxinnately doubles the processing 
time. You can change the delay time just by changing the end index value (in this 
case 10). Optionally add the index variable I to the NEXT in line 140. Using index 
names on NEXT statements is a good idea, especially when you have nested FOR 
. . . NEXT loops. 



Changes 



Add: 



Change 
Delete: 



Lines 5, 135 
Line 140 
None 
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Program 6. SPEED UP. 



5 REM PROGRAM 6 SPEED UP 
10 REM ***♦♦♦* E L fl N K E T ******* 
20 REM CONTINUOUS-LINE DISPLflV OF ONE 
30 REM CHflRflCTER ENTERED FROM THE 
40 REM KEVBOFlRD 

50 REM ******************************* 

90 PRINT"HIT fl KEV OR <R> TO END". 
100 GET C*:IF C*="" GOTO 100 

105 IF C*=CHR*<13:) GOTO 170 

106 FOR I=1T07 

107 C*=C*+C* 

108 NEXT REM C*=12S C*-S 

109 C*=C*+LEFT*<C*, 102> REM C*=230 C*'S 

110 PRINT"ni".; REM CLEAR SCREEN 
120 FOR I=1T04 REM 230*4=23 LINES 
130 PRINT C*.; 

140 NEXT 

150 PR I NT "PHEW! " 
1 60 GOTO 90 
170 END 



Comments 

Here you have to realize that one long string prints nnore quickly than a num- 
ber of shorter strings. Ideally we would print one 920-character string. However, 
on the PET, strings are limited to a maximum of 255 characters. The program 
breaks the 920 positions into four 230-character quadrants. At lines 106 to 109 it 
concatenates the keyed-in character into a 230-character string, which is a 
quarter of the screen area to be covered by the display character. The FOR . . . 
NEXT loop at lines 106 to 108 uses a pyramided concatenation to quickly "grow" 
the string to 1 28 characters. Then at line 1 09 the 1 28-character string is concate- 
nated to the leftmost 1 02 characters of the string to give a 230-character string of 
the display character. The FOR . . . NEXT print loop at lines 120 to 140 needs to 
print this longer string only four times to fill the screen. 



Changes 



Change: 
Delete: 



Add: 



Lines 5, 106-109 
Line 120 
None 
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Program 7, INDIAN BLANKET. 



5 REM PRQGRflM 7 INDIAN BLANKET 

10 REM ******* BLANKET ******* 

20 REM CONTINUOUS-LINE DISPLAV OF 

30 REM CHARACTERS ENTERED FROM THE 

40 REM KEVEOARD 

50 REM ******************************* 

90 PRINT "HIT ANV KEYS".; 

100 GET C*:IF C*="" GOTO 100 

110 PRINT".T'.: -REM CLEAR SCREEN 

120 FOR 1=1 TO 920 : REM 920/40=23 LINES 

130 PRINT C*,: 

134 FOR J=l TO 40 NEXT J -REM DELAV 

135 GET D$::IF D*<>" " THEN C*=D* 
137 IF D*=CHR*<13> GOTO 170 
140 NEXT 

150 PR I NT "PHEW! " 

155 PRINT"HIT ANV KEVS OR <R> TO END". 
160 GOTO 100 
170 END 



Changes 

Add: Lines 5, 134. 135. 137, 155 

Change: Lines 20, 30. 90, 160 

Delete: Line 105 



Comments 

Line 135 allows different characters to be keyed in during the display. If a 
key has been struck, it is fetched as D$, and C$ is assigned the new character. 
Line 1 37 is added to handle the case where the RETURN key is struck during a dis- 
play sequence. The messages were modified by changing lines 90 and 160 and 
adding line 1 55 just as described for Program 2. The program is slowed down by a 
delay loop at line 1 34 exactly the same as in Program 5 (line 1 35) except that the 
delay time is lengthened by having an end value of 40 (instead of 1 as in Program 
5). 
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Program 8. PRINTOVER I. 



5 REM PROGRflM 8 PRINTOVER I 
10 REM ###**** BLANKET ******* 
20 REM CONTINUOUS-LINE HISPLflV OF ONE 
30 REM CHflRfiCTER ENTERED FROM THE 
40 REM KEVBOFiRD 

50 REM ******************************* 

90 PRINT "HIT Ft REV OR <:R> TO END".; 

100 GET C*-IF C*="" GOTO 100 

105 IF C*=CHR*<13> GOTO 170 

110 PR I NT "."3"; REM CLEAR SCREEN 

120 FOR 1=1 TO 4 :REM 230*4=23 LINES 

130 PRINT C*. 

140 NEXT 

150 PR I NT "PHEW! " 
160 GOTO 90 
170 END 



Comments 

This is the easiest program modification so far — just change the Clear 
Screen literal at line 1 10 to a Home Cursor! 

However, the program display suffers from two things caused by not blank- 
ing the screen. First, there may be extraneous characters left in the bottom two 
rows that are not blanked out or overwritten by the program; this is because the 
PHEW! and HIT A KEY messages don't cover the entire lines, nor does the PET 
blank out the rest of the lines. Second, the character display appears not to move 
if the same character is keyed in again: this also holds for the two messages 
printed at the bottom of the screen. For this program's purposes, you would prefer 
to see some movement at the cursor position when printing a character over the 
same character. 



Changes 



Add: 

Change 

Delete: 



Line 5 
Line 110 
None 
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Program 9, PRINTOVER II. 



5 REM PROGRAM 9 PRINTOVER II 
10 REM ******* B L fl N K E T ******* 
20 REM CONTINUOUS-LINE DISPLPIV OF ONE 
30 REM CHflRflCTER ENTERED FROM THE 
40 REM KEVEOftRn 

50 REM ******************************* 

85 Qt=" " :REM 39 BLRNKS 

86 R*=" REM 40 ELflHKS 

87 S*=R*+Q* :REM ELFINKS FOR 2 LAST LINES 
90 PRINT "HIT hi KEV OR <R> TO END".: 

100 GET C$1F C*="" GOTO 106 
105 IF C*=CHR$<13:) GOTO 170 

107 IF FO0 THEN GOSUB 600 : REM TO BLANK 2 LINES 

110 PR I NT :REM HOME CURSOR 

120 FOR 1=1 TO 919 REM 919/40=23 LINES 

130 PRINT C*.; 

135 PRINT "a".:C*J ^ REM PRINT REV 

140 NEXT 

141 PRINT Cti 

142 GOSUB 610 REM TO BLANK 2 LINES 
150 PR I NT "PHEW! " 

155 FOR 1=1 TO 1000: NEXT REM PAUSE 

157 F=l 

160 GOTO 90 

170 END 

600 pRiNT"sa««naM«iawww^^ rem to next-to-last 

610 PRINT S*;"rT»I".; LINE 
620 RETURN 



Comments 

The extensive changes made here illustrate the lengths you have to go to in 
order to snnooth the rough edges of a simple program modification. (Recall that in 
PRINTOVER I you had to change just one character of the program to get the 
typeover effect!) 

To show movement at the printing of each character, the character is 
printed (line 130) and then in the next position the reverse of the character is 
printed (line 135). At line 135 the cursor is also backed up one so that the next 
loop iteration will print the character in the same position where the reverse 
character was just printed. The end loop index in line 1 20 is changed from 920 to 
919 so that the reverse character, which runs one ahead of C$, will not print 
beyond the 920th position. Line 141 has to be added to print C$ at this last 
character display position. 



Changes 



Add; 

Change; 

Delete; 



Lines 5, 85-87, 107, 135, 141-142. 155, 157, 600-620 

Lines 110, 120 

None 
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The remaining changes are for the message display lines. Lines 85 to 87 
create S$, a string of 79 blanks. This could have been done with a single state- 
ment (S$="<79 blanks>") but the three lines are more informative and make 
use of the PET concatenation feature. Why 79 instead of 80 blanks (since the two 
lines are each 40 characters long)? You will find, if you have tried this, that print- 
ing into the last character position of the screen always causes scrolling up one 
line. Therefore: first, you will never find a character that needs to be blanked sit- 
ting in the last position, so that blanking up to but not including the last position is 
far enough. And second, to perform the indicated task, you need to blank the bot- 
tom two lines of the screen but you do not want to scroll the screen up, thereby 
losing the top line of the character display and making the program look 
amateurish. 

After the character display has completed (at line 141), line 142 calls a 
subroutine beginning at line 610 to print the blank string S$, followed by a con- 
tinuous-line format indicator (;) to leave the cursor at the last position on the 
screen. Now you want to return the cursor to the beginning of the first blank line, 
which is done by cursor control characters to move the cursor up two lines and 
right one character position. The subroutine terminates and returns control to the 
main program, and at line 150 the program prints PHEWI. Then, as stipulated by 
the task, a delay loop causes the program to pause a few seconds by doing 
nothing for 1000 iterations. This completes the program's processing of the first 
display character. 

The task specifies that the program blank the two message lines before 
starting the new character display. This also has to be done for succeeding dis- 
play characters, i.e., all but the first one. A flag F is used to indicate the "first 
time'not first time" condition. Initially F is zero. After completing the first display 
character, at line 1 57 F is set to 1 so that at line 107 the Blank 2 Lines subroutine 
is called before beginning the display of the next character. The subroutine begin- 
ning at line 600 is called this time, which moves the cursor to the beginning of the 
message area by homing the cursor and then moving the cursor down 23 lines. 
Execution proceeds to line 610 to print the blank string S$ and return. (The cursor 
movements at line 610 are irrelevant now, since the next operation on returning 
from the subroutine to line 1 10 is to home the cursor.) After the cursor is homed, 
the display loop executes (lines 120 to 141). Now the program again calls the 
Blank 2 Lines subroutine (line 142) before printing the two messages. This is a 
redundant call, since the two lines are being blanked before the display loop for 
the second and subsequent display characters. The only time the lines need to be 
blanked at this point is for the first character. This line is probably better written: 

142 IF F=0 THEN GOSUB 610: REM TO BLANK 2 LINES 
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The simplified flowchart below summarizes the program flow. 



C 



PRINTOVER 



Print 
HIT A KEY 
message 



Print character over 
first 23 lines using 
typeover 



Blank 2 
message lines 



Print 2 lines 
of messages over 
blank lines 




Blank 2 
message lines 



C 



3 



Print character over 
first 23 lines using 
typeover 



Print 2 lines 
of messages over 
blank lines 
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Program 10, ALL THE WAY. 



5 REM PROGRAM 10 ALL THE WAV 
10 REM ♦♦♦*#♦# BLANKET *♦♦#*#* 
20 REM CONTINUOUS-LINE DISPLRV OF ONE 
30 REM CHARACTER ENTERED FROM THE 
40 REM KEVBOARD 

90 PRINT "HIT A KEV OR <R> TO END'S 

100 GET C*:IF C*="" GOTO 100 

105 IF C*=CHR*<13) GOTO 170 

110 PRINT-n'S REM CLEAR SCREEN 

120 FOR 1=1 TO 999 REM 999/40=25 LINES 

130 PRINT CSi 

140 NEXT 

150 POKE 33767. <ASC<C* > AND 128) /2 OR < ASC<C*>AND63> 
160 GOTO 100 
170 END 



Comments 

Following the hint given with the problem in Chapter 3, we can get the 
character to print in 999 positions simply by changing the value of the FOR . . . 
NEXT ending index in line 1 20 from the value 920 to the value 999. However, the 
program cannot PRINT into the 1000th screen position without scrolling the dis- 
play up one line. Recall that the previous program, PRINTOVER II, had to stop short 
of printing in the final position to avoid scrolling — but that program just wanted 
to blank the position, and it was found that the position would always be blank 
anyway.* The current program needs to display a character at that position. The 
only way to accomplish this with the PET is to POKE the character's screen value 
into address 33767, which corresponds to the last screen position. POKE does not 
use the cursor and thus does not produce scrolling. 



'The final position will be blank unless you POKEd a character there before running the program. If 
you wanted to be absolutely sure about blanking this last position, you could do so by POKEing a 
blank to it with a POKE 33767,32. 



Changes 



Add: 



Line 5 

Lines 120, 150, 160 
None 



Change: 
Delete: 
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The tough part of this exercise is that the screen display code needed to 
POKE is different from the PET ASCII code that C$ is assigned. As covered in 
Chapter 6, the screen code is equivalent to a 6-bit ASCII subset with ASCII bit 7 
moved over into screen bit 6: 




6-bit screen 
code 



= character 

1 = graphic 

(shifted) 



= character 

1 = graphic 

(shifted) 



This is what line 150 in the program does with the logic operation: 

(ASC(C$)AND128)/2 OR (ASC(C$)AND63) 
We'll go over this operation piece by piece. 



ASC(C$) provides the numerical equivalent of the character C$. 

As a number, it can be manipulated arithmetically (and 
logically). 

AND 128 128io=80i6. This AND operation masks off (zeroes) all 

but the high-order bit (bit 7) of the ASCII code to isolate 
it. Regardless of the previous value of C$, after this 
operation the term has a value of: 

100000002 or 000000002- 

12 Divide by 2. In binary, division by 2 is equivalent to a 

logical right shift one bit. It admittedly requires a little 
background to come up with this step. After this opera- 
tion, the term has a value of: 

010000002 or 000000002- 

Thus, we have moved bit 7 of the ASCII code into bit 6 
and replaced bit 7 with a zero. 

OR This operation will combine the bit configuration 

already developed (OIOOOOOO2 or OOOOOOOO2) with the 
bit configuration yet to be discussed, (ASC(C$)AND63). 
The OR operation is performed last (see Table 3-4). 
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ASC(C$) again provides the numerical equivalent of C$. 

AND 63 63io=3Fi6- This AND operation zeroes the two high- 

order bits of the ASCII code (which were developed in 
the previous expresson), leaving the five low-order bits 
ready to be ORed in. After this operation, this term has a 
value of: 

00xxxxxx2 
where x=0 or 1. 

Now the OR operation is performed, producing the screen memory code 
equivalent to the ASCII code of the character C$. After the OR operation ,the com- 
bined term has a value of: 

01xxxxxx2 or 00xxxxxx2 

This is the value POKEd into the last screen position at line 150. Since no further 
messages are to be printed, line 160 branches past the HIT A KEY message. 
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Program 11. BOTTOM UP. 



5 REM PROGRAM 11 BOTTOM UP 
10 REM ******* E L ft N K E T ******* 
20 REM COHTINUOUS-LINE DISPLfiV OF ONE 
30 REM CHflRflCTER ENTERED FROM THE 
40 REM KEVBOflRD 

50 REM ******************************* 

90 PR I NT" HIT ft KEV OR <R> TO END".: 
100 GET C*-IF C*="" GOTO 100 
105 PRINT":]".; REM CLEAR SCREEN 

110 IF C*=CHR*<13> GOTO 170 

115 PR I NT " w««sna««ssw««»^^ 

117 POKE 33767.. CASC'^C* >fiNS 128 >/2 OR <flSC<:C*>ftND 63 > 

120 FOR 1=1 TO 9S9 REM 999/40=25 LINES 

130 PRINT C*.; "III".: 

140 NEXT 

150 POKE 33767.. <ftSCCC# >flHri 128:5/2 OR (:ftSCcC:*.')flND63> 

160 GOTO 100 

170 END 



Comments 

To print in reverse order, the progrann first needs to display the character at 
the last screen position (lower right-hand corner). We saw in Program 1 that this 
could be done only by POKEing the screen character equivalent of the C$ 
character code; the mechanics were all worked out in Program 10. In the current 
program, line 117 is an exact duplicate of the Program 10 POKE line; it displays 
the C$ character at the last screen position. 

The next task is to print the character at the next-to-last position. At line 1 1 5 
the cursor is moved from its home position to position 1 of the last line by 24 cur- 
sor downs and then over to the next-to-last position by 38 cursor rights. After 
POKEing the last character (line 117), the program begins printing C$to the other 
999 positions of the screen. After each PRINT (line 130) the cursor rests at the 
position following the position where the last character was printed. 



Changes 



Change: 

Delete: 

Exchange 



Add: 



Lines 5, 115, 117 
Lines 120, 130, 160 
Line 150 

Lines 105 and 110 
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character 

just 
printed 




cursor 
position 



The cursor is moved left two positions (also at line 130) so that the next 
PRINT will print into the position to the left of the character just printed. 



As in Program 10, line 120 is changed to print 999 characters instead of 
920; the PHEW! message at line 150 is deleted: and at line 160 the program 
branches past the HIT A KEY message, which is printed only once at the begin- 
ning of the program. 

The last task, to clear the screen before ending, is accomplished simply by 
switching lines 105 and 110 so that the check for a RETURN key is done after 
clearing the screen. 



two cursor lefts 




position 



just 
printed 
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Company, 1973. 
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science. Library of Congress #72-175789. 
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APPENDIX E 



PET Newsletters and References 



This appendix contains a listing of PET-related publications for PET users 
who want to seek out continuing sources of infornnation on the PET. Many of 
these sources contain notices of PET user groups and activities. No endorsement 
of these publications is innplied. 
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Newsletters 



Calculators/Computers Magazine , Box 310, Menio Park, California 94025. 
Bimonthly. $10.00 year. A nnagazine that has several PET articles in each issue. 

Connmodore PET Users Club Newsletter , Connmodore Business Machines, Inc., 
3330 Scott Blvd., Santa Clara, California 95050. Monthly. $15.00 year U.S., 
$25.00 year foreign. Official Connmodore newsletter in U.S. 

Commodore PET Users Club Newsletter , Commodore Systems, 360 Eusten Rd., 
London, England NW1 3BL. Bimonthly. £10. Official Commodore newsletter in 
Europe. 

CURSOR , P.O. Box 550, Goleta, California 9301 7. Monthly. $33.00 year. A cassette 
magazine — you receive a tape cassette of programs that can be loaded into 
the PET. Each cassette comes with a 2-page newsletter /program description. 

MICRO, The 6502 Journal , 8 Fourth Lane, South Chelmsford, Massachusetts 
01 824. Bimonthly. Single copies $1 .50, $6.00 year. A magazine that has several 
PET articles in each issue. For the experienced PET user. 

People's Computers , 1263 El Camino Real, Box E, MenIo Park, California 94025. 
Bimonthly. Single copies $1.50, $8.00 year. A magazine that has several PET 
articles in each issue. 

PET Gazette , 1929 Northport Drive, #6, Madison, Wisconsin 53704. Bimonthly. 
Free (donations appreciated). Of great value. 

Best of the PET Gazette , 1979. 96 pages. Free with donation to PET Gazette (see 
above). Retail value $10.00. 

The PET Paper , P.O. Box 43, Audubon, Pennsylvania 19407. 10 issues/year 
(monthly except July and December). Single copies $2.00. $15.00 per calendar 
year. 

PET User Notes , P.O. Box 371, Montgomeryville, Pennsylvania 18936. Bimonthly. 
$6.00 for 6 issues in U.S. and Canada, $12.00 for airmail to other countries. A 
good newsletter. 

PET Users Group Newsletter , Lawrence Hall of Science, University of California, 
Berkeley, California 94720. Monthly. $4.50 for 6 integral issues, checks payable 
to Regents of the University of California. Highly recommended. 

Purser's Reference List of Computer Cassettes . Quarterly. Single copy $4.00 
domestic, $5.00 foreign. $12.00 year domestic, $16.00 year foreign. Extensive 
list of PET programs available on cassette. 
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Reference Manuals 

MCS6500 Microcomputer Family Programming Manual , MOS Technology, Inc., 
950 Rittenhouse Road, Norristown, Pennsylvania 19401. $10.00 (price may 
vary with location). By the manufacturers of the 6502 microprocessor. 

MCS6500 Microcomputer Family Hardware Manual , MOS Technology, Inc., 950 
Rittenhouse Road, Norristown, Pennsylvania 19401. $10.00 (price may vary 
with location). By the manufacturers of the 6502 microprocessor. 

PET and the IEEE 488 Bus (GPIB) , E. Fisher and C. W. Jensen, Osborne/McGraw- 
Hill, 630 Bancroft Way, Berkeley, California 94710. 1980. $15.00. 

P ET 2001-8 Personal Computer User Manual , Commodore Business Machines, 
Inc., 3330 Scott Blvd., Santa Clara, California 95050. (8K system). $9.95. By the 
manufacturers of the PET computer. 

PET 2001-16, 16N, 32, 32N Personal Computer User Manual , Commodore Busi- 
ness Machines, Inc., 3330 Scott Blvd., Santa Clara, California 95050. (16K and 
32K systems.) $9.95. By the manufacturers of the PET computer. 

6502 Assembly Language Programming , Lance Leventhal, Osborne/McGraw- 
Hill, 630 Bancroft Way, Berkeley, California 94710. 1979. $12.50. 
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APPENDIX F 



Conversion Tables 



This appendix contains the following reference tables: 

• Hexadecimal-Decimal Integer Conversion 

• Powers of Two 

• Mathematical Constants 

• Powers of Sixteen 

• Powers of Ten 
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HEXADECIMAL-DECIMAL INTEGER CONVERSION 



I nt? lo u ■ c 


be 


ow provides fo 


direct conversions 


between hexo- 


dec inia ! 


nlegers in the range — FFF and dec 


imot integers in 


the ronge 


0' 


-4095. For conversion of larger 


integers, the 


table vol 


ues 


may be added to the following f 


gures. 


Hexadec 


ma 


Dec i ma 1 


Hexadec i ma 1 


Qecima 1 


<J\ 000 




4 096 


20 000 


1 3 1 072 


02 000 




8 192 


30 000 


1 70 OUO 


m nnn 




1 2 288 


40 000 


262 144 


Oil nnn 
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50 000 


•iii OoU 


05 000 




20 480 
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06 000 




24 576 


70 000 
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07 000 
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08 000 




32 768 


90 000 


589 824 


09 000 




Jo 004 


AH Ann 
AU uuu 


655 360 


OA 000 




4U TOU 


Rn nnn 
Du uuu 


720 896 


OB 000 




45 056 


CO 000 


786 432 


OC 000 




49 1 52 


uu uuu 


851 968 


OD 000 




53 248 


EO 000 


917 504 


OE 000 




57 344 


FO 000 


983 040 


OF 000 




61 440 


inn nnn 

1 UU UUv 


1 048 576 


10 000 




65 536 


2nn nnn 


noT 1 CI 
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1 1 000 




69 632 


^nn nnn 


1 1 <4 C "710 

J 1 4o / zH 
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73 728 


4nn nnn 

*fUU UXAJ 


4 1 V4 jU4 


1 3 000 




77 824 


500 000 


5 i;4z OOU 


14 000 




81 920 


600 000 


6 291 456 


15 000 




86 016 


700 000 


/ j4U UJz 


16 000 




90 1 12 


800 000 


Joti OUo 


17 000 




94 208 


900 000 


y 4J/ 1 o4 


18 000 




98 304 


AOO 000 


10 485 760 


19 000 




102 400 


BOO 000 


1 1 534 336 


!A 000 




106 496 


COO 000 


12 582 912 


IB 000 




110 592 


000 000 


13 631 488 


IC 000 




114 688 


EOOOOO 


14 680 064 


ID 000 




118 784 


FOO 000 


15 728 640 


IE 000 




122 880 


1 000 000 


■16 777 216 


IF 000 




1 26 976 


2 000 000 


33 554 432 



Hexadecimal fracfions may be converted to decimal fractions 
as follows: 

1. Express the hexadecimal fraction as on integer times 
16~", where n is the number of significant hexadecimal 
places to the right of the hexadecimal point. 

0. CA9BF3|6 = CA9 BF3|^ x 16"^ 

2. Find the decimal equivalent of the hexadecimal integer 

CA9 BF3,, = 13 278 1 95,^ 
10 10 

3. Multiply the decimal equivalent by 16~" 

13 278 195 
X 596 046 448 x 10"^^ 



Decimal fractions may be converted to hexadecimal fractions 
by successively multiplying the decimal fraction by 16|q. 
After eoch multiplication, the integer portion is removed to 
form a hexadecimal fraction by building to the right of the 
hexadecimal point. However, since decimal arithmetic is 
used in this conversion, the integer portion of each product 
must be converted to hexadecimal numbers. 

Example: Convert 0.895iq to its hexadecimal equivalent 
0.895 



-(g) .320 



If 



-(5). 120 

^ 16 

-Q).m 

^ 16 
-(3).720 
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5 


6 


7 


8 
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A 
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C 


D 


E 


F 


00 


0000 


0001 


0002 


0003 


0004 


0005 


0006 


0007 


0008 


0009 


0010 


0011 


0012 


0013 


0014 


0015 


01 


0016 


0017 


0018 


0019 


0020 


0021 


0022 


0023 


0024 


0025 


0026 


0027 


0028 


0029 


0030 


0031 


02 


0032 


0033 


0034 


0035 


0036 


0037 


0038 


0039 


0040 


0041 


0042 


0043 


0044 


0045 


0046 


0047 


03 


0048 


0049 


0050 


0051 


0052 


0053 


0054 


0055 


0056 


0057 


0058 


0059 


0060 


0061 


0062 


0063 


04 


0064 


0065 


0066 


0067 


0068 


0069 


0070 


0071 


0072 


0073 


0074 


0075 


0076 


0077 


0078 


0079 


05 


0080 


0081 


0082 


0083 


0084 


0085 


0086 


0087 


0088 


0089 


0090 


0091 


0092 


0093 


0094 


0095 


06 


0096 


0097 


0098 


0099 


0100 


0101 


0102 


0103 


0104 


0105 


0106 


0107 


0108 


0109 


01 10 


0111 


07 


0112 


0113 


0114 


0115 


0116 


0117 


0118 


0119 


0120 


0121 


0122 


0123 


0124 


0125 


0126 


0127 


08 


0128 


0129 
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0131 


0132 


0133 


0134 
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0136 
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0138 


0139 
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0159 


OA 


0160 


0161 


0162 
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0200 
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0221 
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OE 
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0226 
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0230 


0231 


0232 
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0234 


0235 


0236 
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0238 


0239 


OF 


0240 


0241 


0242 


0243 


0244 


0245 


0246 


0247 


0248 


0249 


0250 


0251 


0252 


0253 


0254 


0255 
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HEXADECIMAL-DECIMAL INTEGER CONVERSION (Continued) 
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C 


D 
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0890 
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0892 


0893 


0894 
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0896 


0897 


0898 
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0900 


0901 
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0904 


0905 


0906 
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0909 
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0911 
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0913 




0915 


0916 


0917 
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0919 
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0948 
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0955 


0956 
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3E 
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0995 


0996 
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0998 


0999 
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1001 


1002 


1003 


1004 
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1006 


1007 


3F 


1008 


1009 


1010 


1011 
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1013 


1014 


1015 
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1017 
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1019 


1020 
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1022 


1023 
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1025 


1026 


1027 


1028 


1029 


1030 


1031 


1032 


1033 


1034 


1035 


1036 
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1039 


41 


1040 


1041 


1042 


1043 


1044 


1045 


104(5 


1047 


1048 


1049 


1050 


1051 


1052 


1053 


1054 


1055 


42 


1056 


1057 


1058 


1059 


1060 


1061 


1062 


1063 


1064 


1065 


1066 


1067 


1068 


1069 


1070 


1071 


43 


1072 


1073 


1074 


1075 


1076 


1077 


1078 


1079 
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1081 


1082 


1083 


1084 


1085 


1086 


1087 


44 


1088 


1089 
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1091 


1092 


1093 


1094 


1095 


1096 


1097 


1098 


1099 


1100 


1101 


1102 


1103 


45 


1 104 


1105 


1106 


1107 


1108 


1109 


1110 




1112 


1113 


1114 


1115 


1116 


1117 


1118 


1119 


46 


1 120 


1121 


1 1 22 


1 1 23 


1 1 24 


1 125 


1 126 


1 1 27 


1 128 


1 1 29 


1 130 


1131 


1 1 32 


1 1 33 


1 1 34 


1 135 


47 


1 136 


1 137 


1 138 


1 1 39 


1 140 


1 141 


1 142 


1 143 


1 144 


1145 


1 146 


1 147 


1 148 


1 149 


1 150 


1151 


48 


1 152 


1153 


1154 


1 155 


1156 


1157 


1158 


1159 


1160 


1161 


1162 


1163 


1164 


1165 


1166 


1167 


49 


1 168 


1169 


1170 


1171 


1172 


1173 


1174 


1175 


1176 


1 177 


1178 


1179 


1180 


1181 


1182 


1 183 




1 1 84 


1 9m 


1 1 86 


1 187 


1 1 88 


1 1 89 


1 1 90 


1 1 91 


1 1 92 


1 1 93 


1 1 94 


1 1 95 


1 1 96 


1 1 97 


1 1 98 


1 1 99 


4B 




1201 


1 202 


1 203 


1 204 


1 205 


1206 


1207 


1208 


1209 


1210 


1211 


1212 


1213 


1214 


1215 


4C 


1216 


1217 


1218 


1219 


1220 


1221 


1222 


1223 


1224 


1225 


1226 


1227 


1228 


1229 


1230 


1231 


4C 


1232 


1233 


1234 


1235 


1236 


1237 


1238 


1239 


1240 


1241 


1242 


1243 


1244 


1245 


1246 


1247 


4E 


1 248 




1 250 


1 25 1 


1 252 


1 253 


1 254 


1255 


1256 


1 257 


1238 


1259 


1260 


1 261 


1 262 


1 263 


4F 


1 264 


1 265 


1 266 


1 267 


1 268 


1269 


1270 


1271 


1 272 


1 273 


1 274 


1 275 


1 276 


1 277 


1278 


1279 


50 


1280 


1281 


1282 


1283 


1284 


1285 


1286 


1287 


1288 


1289 


1290 


1291 


1292 


1293 


1294 


1295 


51 


1296 


1297 


1298 


1299 


1300 


1301 


1302 


1303 


1304 


1305 


1306 


1307 


1308 


1309 


1310 


131 1 


52 


131 2 


1313 


1314 


1315 


1316 


1317 


1318 


1319 


1320 


1 321 


1 322 


1 323 


1324 


1 325 


1 326 


1 327 


53 


1 328 


1329 


1330 


1331 


1332 


1 333 


1 334 


1 335 


1 336 


1 337 


1338 


1 339 


1340 


1 341 


1 342 


1 

1 J'^J 


54 


1344 


1345 


1346 


1347 


1348 


1349 


1350 


1351 


1352 


1353 


1354 


1355 


1356 


1357 


1358 


1359 


55 


1360 


1361 


1362 


1363 


1364 


1365 


1366 


1367 


1368 


1369 


1370 


1371 


1372 


1373 


1374 


1375 


56 


1376 


1377 


1378 


1379 


1 380 


1 381 


1 382 






1385 


1 386 


1 387 


1 388 


1 389 


1 390 




57 


1392 


1393 


1394 


1395 


1396 


1 397 


1398 


1399 


400 


1401 


1402 


1403 


1404 


1405 


1 406 


I4n7 
1407 


58 


1408 


1409 


1410 


1411 


1412 


1413 


1414 


1415 


1416 


1417 


1418 


1419 


1420 


1421 


1422 


1423 


59 


1424 


1425 


1426 


1427 


1428 


1429 


1430 


1431 


1432 


1433 


1434 


1435 


1436 


1437 


1438 


1439 


5^ 


1440 


1441 


1442 


1443 


1444 


1445 


1446 


1447 












1453 




1 455 


5B 


1436 


1457 


1458 


1459 


1460 


1461 


1462 


1463 


1464 


146^ 
465 


1466 
1466 


1467 


14AS 
468 


1469 


14 


1471 


5C 


1472 


1473 


1474 


1475 


1476 


1477 


1478 


1479 


1480 


1481 


1482 


1483 


1484 


1485 


1486 


1487 


5D 


1488 


1489 


1490 


1491 


1492 


1493 


1494 


1495 


1496 


1497 


1498 


1499 


1500 


1501 


1502 


1503 


5E' 


1504 


1505 




1507 


1508 


1509 


1510 


151 1 


1512 


1513 


1514 


1515 


1516 


1517 


1518 


1519 


5F 


1520 


1521 


1522 


1523 


1524 


1525 


1526 


1527 


1528 


1529 


1530 


1531 


1532 


1533 


1534 


1535 


60 


1536 


1537 


1538 


1539 


1540 


1541 


1542 


1543 


1544 


1545 


1546 


1547 


1548 


1549 


1550 


1551 


61 


1552 


1553 


1554 


1555 


1556 


1557 


1558 


1559 


1560 


1561 


1562 


1563 


1564 


1565 


1566 


1567 




1568 


1569 


1570 


157 1 


1572 


1573 


1574 


1575 


1576 


1577 


1578 


1579 


1580 


1581 


1582 


1583 


63 


1584 


1585 


1586 


1587 


1588 


1589 


1590 


1591 


1592 


1593 


1594 


1595 


1596 


1597 


1598 


1599 


64 


1600 


1601 


1602 


1603 


1604 


1605 


1606 


1607 


1608 


1609 


1610 


1611 


1612 


1613 


1614 


1615 


65 


1616 


1617 


16.18 


1619 


1620 


1621 


1622 


1623 


1624 


1625 


1626 


1627 


1628 


1629 


1630 


1631 




1632 


1633 


1634 


1 635 


1636 


1637 


1638 


1639 


1640 


1641 


1642 


1643 


1644 


1645 


1646 


1647 


67 


1648 


1649 


1650 


165 1 


1652 


1653 


1654 


1655 


1656 


1657 


1658 


1659 


1660 


1661 


1662 


1663 


68 


1664 


1665 


1666 


1667 


1668 


1669 


1670 


1671 


1672 


1673 


1674 


1675 


1676 


1677 


1678 


1679 


69 


1680 


1681 


1682 


1683 


1684 


1685 


1686 


1687 


1688 


1689 


1690 


1691 


1692 


1693 


1694 


1695 


6A 


1696 


1697 


1698 


1699 


1700 


1701 


1702 


1703 


1704 


1705 


1706 


1707 


1708 


1709 


1710 


171 1 


6B 


1712 


1713 


1714 


1715 


1716 


1717 


1718 


1719 


1720 


1721 


1722 


1723 


1724 


1725 


1726 


1727 


6C 


1728 


1729 


1730 


1731 


1732 


1733 


1734 


1735 


1736 


1737 


1738 


1739 


1740 


1741 


1742 


1743 


6D 


1744 


1745 


1746 


1747 


1748 


1749 


1750 


1751 


1752 


1753 


1754 


1755 


1756 


1757 


1758 


1759 


6E 


1760 


1761 


1762 


1763 


1764 


1765 


1766 


1767 


1768 


1769 


1770 


1771 


1772 


1773 


1774 


1775 


6F 


1776 


1777 


1778 


1779 


1780 


1781 


1782 


1783 


1784 


1785 


1786 


1787 


1788 


1789 


1790 


1791 
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HEXADECIMAL-DECIMAL INTEGER CONVERSION (Continued) 








1 


2 


3 


4 


5 


6 


7 


g 


9 




B 


c 


D 


E 


F 


70 


1792 


1793 


1794 


1795 


1 796 


1797 


1798 


1 799 


1800 


1 801 


1802 


1803 


1804 


1805 


1806 


1807 


71 


1808 


1809 


1810 


1811 


1812 


1813 


1814 


1815 


1816 


1817 


1818 


1819 


1820 


1821 


1822 


1823 


72 


1824 


1825 


1826 


1827 


1828 


1829 


1830 


1831 


1832 


1833 


1834 


1835 


1836 


1837 


1838 


1839 


73 


1840 


1841 


1842 


1843 


1844 


1845 


1 846 


1 Q><7 


1848 


1 849 


1850 


1851 


1852 


1853 


1854 


1855 


74 


1856 


1857 


1858 


1 859 


1860 


186 1 


1 862 


1 863 


1 864 


1 865 


1866 


1867 


1868 


1869 


1870 


1871 


75 


1872 


1373 


1374 


1875 


1876 


1877 


1878 


1879 


1880 


1881 


1882 


1883 


1884 


1885 


1886 


1887 


76 


1888 


1889 


1890 


1891 


1892 


1893 


1894 


1895 


1896 


1897 


1898 


1899 


1900 


1901 


1902 


1903 


77 


1904 


1905 


1906 


1907 


1908 


1 909 


1910 


1911 


1912 


1911 


1914 


1915 


1916 


1917 


1918 


1919 


78 


1920 


1921 


1922 


1923 


1924 


1925 


1926 


1927 


1928 


1929 


1930 


1 93 1 


1 932 


1 933 


1 934 


1 935 


79 


1936 


1937 


1938 


1939 


1940 


1941 


1942 


1943 


1944 


1945 


1946 


1947 


1948 


1949 


1950 


1951 


7A 


1952 


1953 


1954 


1955 


1956 


1957 


1958 


1959 


1960 


1961 


1962 


1963 


1964 


1965 


1966 


1967 


7B 


1968 


1969 


1970 


1971 


1972 


1973 


1974 


1975 


1976 


1977 


1978 


1979 


1980 


1981 


1 982 


1 983 


7C 


1984 


1985 


1986 


1987 


1988 


1989 


1990 


1991 


1992 


1993 


1994 


1995 


1996 


1997 


1 998 


1 999 


7D 


2000 


2001 


2002 


2003 


2004 


2005 


2006 


2007 


2008 


2009 


2010 


2011 


2012 


2013 


2014 


2015 


7E 


2016 


2017 


2018 


2019 


2020 


2021 


2022 


2023 


2024 


2025 


2026 


2027 


2028 


2029 


2030 


2031 


7F 


2032 


2033 


2034 


2035 


2036 


2037 


2038 


2039 


2040 


2041 


2042 


2043 


2044 


2045 


2046 


2047 


80 


2048 


2049 


2050 


2051 


2052 


2053 


2054 


2055 


2056 


2057 


2058 


2059 


2060 


2061 


2062 


2063 


81 


2064 


2065 


2066 


2067 


2068 


2069 


2070 


2071 


2072 


2073 


2074 


2075 


2076 


2077 


2078 


2079 


82 


2080 


2081 


2082 


2083 


2084 


2085 


2086 


2087 


2088 


2089 


2090 


2091 


2092 


2093 


2094 


2095 


83 


2096 


2097 


2098 


2099 


2100 


2101 


2102 


2103 


2104 


2 105 


2 106 


2107 


2 108 


2109 


2110 


2111 


84 


2112 


2113 


21 14 


21 15 


21 16 


2117 


2118 


21 19 


21 20 


2121 


21 22 


21 23 


21 24 


21 25 


21 26 


2127 


85 


2128 


2129 


2130 


2131 


2132 


2133 


2134 


2135 


2136 


2137 


2138 


2139 


2140 


2141 


2142 


2143 


86 


2144 


2145 


2146 


2147 


2148 


2149 


2150 


2151 


2152 


2153 


2154 


2155 


2156 


2157 


2158 


2159 


87 


2160 


2161 


2162 


2163 


2164 


2165 


2166 


2167 


2168 


2169 


21 70 


2171 


2172 


2173 


2174 


2175 


88 


2176 


2177 


2178 


2179 


2180 


2181 


2182 


2183 


21 84 


2 185 


2186 


21 87 


2! 88 


21 89 


21 90 


2191 


89 


2192 


2193 


2194 


2195 


2196 


2197 


2198 


2199 


2200 


2201 


2202 


2203 


2204 


2205 


2206 


2207 


. 8A 


2208 


2209 


2210 


2211 


2212 


2213 


2214 


2215 


2216 


2217 


2218 


2219 


2220 


2221 


2222 


2223 


8B 


2224 


2225 


2226 


2227 


2228 


2229 


2230 


2231 


2232 


2233 


2234 


2235 


2236 


2237 


2238 


2239 


8C 


2240 


2241 


2242 


2243 


2244 


2245 


2246 


2247 


2248 


2249 


2250 


2251 


2252 


2253 


2254 


2255 


8D 


2256 


2257 


2258 


2259 


2260 


2261 


2262 


2263 


2264 


2265 


2266 


2267 


2268 


2269 


2270 


2271 


8E 


2272 


2273 


2274 


2275 


2276 


2277 


2278 


2279 


2280 


2281 


2282 


2283 


2284 


2285 


2286 


2287 


8F 


2288 


2289 


2290 


2291 


2292 


2293 


2294 


2295 


2296 


2297 


2298 


2299 


2300 


2301 


2302 


2303 


90 


2304 


2305 


2306 


2307 


2308 


2309 


2310 


231 1 


2312 


2313 


2314 


2315 


2316 


2317 


2318 


231 9 


91 


2320 


2321 


2322 


2323 


2324 


2325 


2326 


2327 


2328 


2329 


2330 


2331 


2332 


2333 


2334 


2335 


92 


2336 


2337 


2338 


2339 


2340 


2341 


2342 


2343 


2344 


2345 


2346 


2347 


2348 


2349 


2350 


2351 


93 


2352 


2353 


2354 


2355 


2356 


2357 


2358 


2359 


2360 


2341 


2362 


2363 


2364 


2365 


2366 


2367 


94 


2368 


2369 


2370 


2371 


2372 


2373 


2374 


2375 


2376 


2377 


2378 


2379 


2380 


2381 


2382 


2383 


95 


2384 


2385 


2386 


2387 


2388 


2389 


2390 


2391 


2392 


2393 


2394 


2395 


2396 


2397 


2398 


2399 


96 


2400 


2401 


2402 


2403 


2404 


2405 


2406 


2407 


2408 


2409 


2410 


2411 


2412 


2413 


2414 


2415 


97 


2416 


2417 


2418 


2419 


2420 


2421 


2422 


2423 


2424 


2425 


2426 


2427 


2428 


2429 


2430 


2431 


98 


2432 


2433 


2434 


2435 


2436 


2437 


2438 


2439 


2440 


2441 


2442 


2443 


2444 


2445 


2446 


2447 


99 


2448 


2449 


2450 


2451 


2452 


2453 


2454 


2455 


2456 


2457 


2458 


2459 


2460 


2461 


2462 


2463 


9A 


2464 


2465 


2466 


2467 


2468 


2469 


2470 


2471 


2472 


2473 


2474 


2475 


2476 


2477 


2478 


2479 


9B 


2480 


2481 


2482 


2483 


2484 


2485 


2486 


2487 


2488 


2489 


2490 


2491 


2492 


2493 


2494 


2495 


9C 


2496 


2497 


2498 


2499 


2500 


2501 


2502 


2503 


2504 


2505 


2506 


2507 


2508 


2509 


2510 


2511 


9D 


2512 


2513 


2514 


2515 


2516 


2517 


2518 


2519 


2520 


2521 


2522 


2523 


2524 


2525 


2526 


2527 


9E 


2528 


2529 


2530 


2531 


2532 


2533 


2534 


2535 


2536 


2537 


2538 


25 39 


2540 


2541 


2542 


2543 


9F 


2544 


2545 


2546 


2547 


2548 


2549 


2550 


2551 


2552 


2553 


2554 


2555 


2556 


2557 


2558 


2559 



397 



HEXADECIMAL-DECIMAL INTEGER CONVERSION (Continued) 








1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


r 


AO 


2560 


2561 


2562 


2563 


2564 


2565 


2566 


2567 


2568 


2569 


2570 


2571 


2572 


2573 


2574 


2575 


Al 


2576 


2577 


2578 


2579 


2580 


2581 


25 82 


2583 


2584 


2585 


2586 


2587 


2588 


2589 


2590 


2591 


A2 


2592 


2593 


2594 


2595 


2596 


2597 


2598 


2599 


2600 


2601 


2602 


2603 


2604 


2605 


2606 


2607 


A3 


2608 


2609 


2610 


261 1 


2612 


2613 


2614 


2615 


2616 


2617 


2618 


2619 


2620 


2621 


2622 


2623 


A4 


2624 


2625 


2626 


2627 


2628 


2629 


2630 


2631 


2632 


2633 


2634 


2635 


2636 


2637 


2638 


2639 


A5 


2640 


2641 


2642 


2643 


2644 


2645 


2646 


2647 


2648 


2649 


2650 


2651 


265 2 


2653 


2654 


2655 


A6 


2656 


2657 


2658 


2659 


2660 


2661 


2662 


2663 


2664 


2665 


2666 


2667 


2668 


2669 


2670 


2671 


A7 


2672 


2673 


2674 


2675 


2676 


2677 


2678 


2679 


2680 


2681 


2682 


2683 


2684 


2685 


2686 


2687 


A8 


2688 


2689 


2690 


2691 


2692 


2693 


2694 


2695 


2696 


2697 


2698 


26 99 


2700 


2701 


2702 


2703 


A9 


2704 


2705 


2706 


2707 


2708 


2709 


2710 


271 1 


2712 


2713 


2714 


2715 


2716 


2717 


2718 


2719 


AA 


2720 


2721 


2722 


2723 


2724 


2725 


2726 


2727 


2728 


2729 


2730 


2731 


2732 


2733 


2734 


2735 


AB 


2736 


2737 


2738 


2739 


2740 


2741 


2742 


2743 


2744 


2745 


2746 


2747 


2748 


2749 


2750 


2751 


AC 


2752 


2753 


2754 


2755 


2756 


2757 


2758 


2759 


2760 


2761 


2762 


2763 


2764 


2765 


2766 


2767 


AD 










2772 


2773 


2774 


2775 


2776 


2777 


2778 


2779 


2780 


2781 


2782 


2783 


AE 


2784 


2785 


2786 


2787 


2788 


2789 


2790 


2791 


2792 


2793 


2794 


2795 


2796 


2797 


2798 


2799 


AF 


2800 


2801 


2802 


2803 


2804 


2805 


2806 


2807 


2808 


2809 


2810 


2811 


2812 


2813 


2814 


2815 


BO 


2816 


2817 


2818 


2819 


2820 


2821 


2822 


2823 


2824 


2825 


2826 


2827 


2828 


2829 


2830 


2831 


Bl 


2832 


2833 


2834 


2835 


2836 












2842 


2843 


2844 


2845 


2846 


2847 


B2 


2848 


2849 


2850 


2851 


2852 


2853 


2854 


2855 


2856 


2857 


2858 


2859 


2860 


2861 


2862 


2863 


B3 


2864 


2865 


2866 


2867 


2868 


2869 


2870 


2871 


2872 


2873 


2874 


2875 


2876 


2877 


2878 


2879 


B4 


2880 


2881 


2882 


2883 


2884 


2885 


2886 


2887 


2888 


2889 


2890 


2891 


2892 


2893 


2894 


2895 


B5 


2896 








2900 




2902 


2903 


2904 


2905 


2906 


2907 


2908 


2909 


2910 


291 1 


B6 


2912 


2913 


2914 


2915 


2916 


2917 


2918 


2919 


2920 


2921 


2922 


2923 


2924 


2925 


2926 


2927 


B7 


2928 


2929 


2930 


2931 


2932 


2933 


2934 


2935 


2936 


2937 


2938 


2939 


2940 


2941 


2942 


2943 


B8 


2944 


2945 


2946 


2947 


2948 


2949 


2950 


2951 


2952 


2953 


2954 


2955 


2956 


2957 


2958 


2959 


B9 


2960 


2961 


2962 


2963 


2964 


2965 


2966 


2967 


2963 


2969 


2970 


'2971 


2972 


2973 


2974 


2975 


BA 


2976 


2977 


2978 


2979 


2980 


2981 


2982 


2983 


2984 


2985 


2986 


2987 


2988 


2989 


2990 


2991 


BB 


2992 


2993 


2994 


2995 


2996 


2997 


2998 


2999 


3000 


3001 


3002 


3003 


3004 


3005 


3006 


3007 


BC 


3008 


3009 


3010 


3011 


3012 


3013 


3014 


3015 


3016 


3017 


3018 


3019 


3020 


3021 


3022 


3023 


BD 


3024 


3025 


3026 


3027 


3028 


3029 


3030 


3031 


3032 


3033 


3034 


3035 


3036 


3037 


3038 


3039 


BE 


3040 


3041 


3042 


3043 


3044 


3045 


3046 


3047 


3048 


3049 


3050 


3D51 


3052 


3053 


3054 


3055 


BF 


3056 


3057 


3058 


3059 


3060 


3061 


3062 


3063 


3064 


3065 


3066 


3067 


3068 


3069 


3070 


3071 


CO 


3072 


3073 


3074 


3075 


3076 


3077 


3078 


3079 


3080 


3081 


3082 


3083 


3084 


3085 


3086 


3087 


Q 1 


3088 


3089 


3090 


3091 


3092 


3093 


3094 


3095 


3096 


3097 


3098 


3099 


3 100 


3101 


3 1 02 


3 1 03 


C2 


3104 


3105 


3106 


3107 


3108 


3109 


3110 


3111 


31 12 


3113 


3114 


3115 


3116 


3117 


3118 


3119 


C3 


3120 


3121 


3122 


3123 


3124 


3125 


3126 


3127 


3128 


3129 


3130 


3131 


3132 


3133 


3134 


3135 


C4 


3136 


3137 


3138 


3139 


3140 


3141 


3142 


3143 


3144 


3145 


3146 


3147 


3148 


3149 


3150 


3151 


C5 


3152 


3153 


3154 


3155 


3156 


3157 


3158 


3159 


3160 


3161 


3162 


3163 


3164 


3165 


3166 


3167 


C6 


3168 


3169 


3170 


3171 


3172 


3173 


3174 


3175 


3176 


3177 


3178 


3179 


3180 


3181 


3182 


3183 


C7 


3184 


3185 


3186 


3187 


3188 


3189 


3190 


3191 


3192 


3193 


3194 


3195 


3196 


3197 


3198 


3199 


C8 


3200 


3201 


3202 


3203 


3204 


3205 


3206 


3207 


3208 


3209 


3210 


3211 


3212 


3213 


3214 


3215 


C9 


3216 


3217 


3218 


3219 


3220 


3221 


3222 


3223 


3224 


3225 


3226 


3227 


3228 


3229 


3230 


3231 


CA 


3232 


3233 


3234 


3235 


3236 


3237 


3238 


3239 


3240 


3241 


3242 


3243 


3244 


3245 


3246 


3247 


CB 


3248 


3249 


3250 


3251 


3252 


3253 


3254 


3255 


3256 


3257 


3258 


3259 


3260 


3261 


3262 


3263 


CC 


3264 


3265 


3266 


3267 


3268 


3269 


3270 


3271 


3272 


3273 


3274 


3275 


3276 


3277 


3278 


3279 


CD 


3280 


3281 


3282 


3283 


3284 


3285 


3286 


3287 


3288 


3289 


3290 


3291 


3292 


3293 


3294 


3295 


CE 


3296 


3297 


3298 


3299 


3300 


3301 


3302 


3303 


3304 


3305 


3306 


3307 


3308 


3309 


3310 


331 1 


CF 


3312 


3313 


3314 


3315 


3316 


3317 


3318 


3319 


3320 


3321 


3322 


3323 


3324 


3325 


3326 


3327 
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HEXADECIMAL-DECIMAL INTEGER CONVERSION (Continued) 








1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


DO 


3328 


3329 


3330 


3331 


3332 


3333 


3334 


3335 


3336 


3337 


3338 


3339 


3340 


3341 


3342 


3343 


Dl 


3344 


3345 


3346 


3347 


3348 


3349 


3350 


3351 


3352 


3353 


3354 


3355 


3356 


3357 


3358 


3359 


D2 


3360 


3361 


3362 


3363 


3364 


3365 


3366 


3367 


3368 


3369 


3370 


3371 


3372 


3373 


3374 


3375 


D3 


3376 


3377 


3378 


3379 


3380 


3381 


3382 


3383 


3384 


3385 


3386 


3387 


3388 


3389 


3390 


3391 


D4 


3392 


3393 


3394 


3395 


3396 


3397 


3398 


3399 


3400 


3401 


3402 


3403 


3404 


3405 


3406 


3407 


D5 


3408 


3409 


3410 


34 1 1 


341 2 


3413 


341 4 


3415 


3416 


3417 


3418 


3419 


3420 


3421 


3422 


3423 


D6 


3424 


3425 


3426 


3427 


3428 


3429 


3430 


3431 


3432 


3433 


3434 


3435 


3436 


3437 


3438 


3439 


D7 


3440 


3441 


3442 


3443 


3444 


3445 


3446 


3447 


3448 


3449 


3450 


3451 


3452 


3453 


3454 


3455 


D8 


3456 


3457 


3458 


3459 


3460 


3461 


3462 


3463 


3464 


3465 


3466 


3467 


3468 


3469 


3470 


3471 


D9 


3472 


3473 


3474 


3475 


3476 


3477 


3478 


3479 


3480 


3481 


3482 


3483 


3484 


3485 


3486 


3487 


DA 


3488 


3489 


3490 


3491 


3492 


3493 


3494 


3495 


3496 


3497 


3498 


3499 


3500 


3501 


3502 


3503 


DB 


3504 


3505 


3506 


3507 


3508 


3509 


3510 


3511 


3512 


3513 


3514 


3515 


3516 


3517 


3518 


3519 


DC 


3520 


3521 


3522 


3523 


3524 


3525 


3526 


3527 


3528 


3529 


3530 


3531 


3532 


3533 


3534 


3535 


DD 


3536 


3537 


3538 


3539 


3540 


3541 


3542 


3543 


3544 




3546 


3547 


3548 


3549 


3550 


3551 


DE 


3552 


3553 


3554 


3555 


3556 


3557 


3558 


3559 


3560 


3561 


3562 


3563 


3564 


3565 


3566 


3567 


OF 


3568 


3569 


3570 


3571 


3572 


3573 


3574 


3575 


3576 


3577 


3578 


3579 


3580 


3581 


3582 


3583 


EO 


3584 


3585 


3586 


3587 


3588 


3589 


3590 


3591 


3592 


3593 


3594 


3595 


3596 


3597 


3598 


3599 


El 


3600 


3601 


3602 


3603 


3604 


3605 


3606 


3607 


3608 


3609 


361 


361 1 


36 1 2 


36 1 3 


36 14 


3615 


E2 


3616 


3617 


3618 


3619 


3620 


3621 


3622 


3623 


3624 


3625 


3626 


3627 


3628 


3629 


3630 


3631 


E3 


3632 


3633 


3634 


3635 


3636 


3637 


3638 


3639 


3640 


3641 


3642 


3643 


3644 


3645 


3646 


3647 


E4 


3648 


3649 


3650 


3651 


3652 


3653 


3654 


3655 


3656 


3657 


3658 


3659 


3660 


3661 


3662 


3663 


E5 


3664 


3665 


3666 


3667 


3668 


3669 


3670 


3671 


3672 


3673 


3674 


3675 


3676 


3677 


3678 


3679 


E6 


3680 


3681 


3682 


3683 


3684 


3685 


3686 


3687 


3688 


3689 


3690 


3691 


3692 


3693 


3694 


3695 


E7 


3696 


3697 


3698 


3699 


3700 


3701 


3702 


3703 


3704 


3705 


3706 


3707 


3708 


3709 


3710 


3711 


EB 


3712 


3713 


3714 


3715 


3716 


3717 


3718 


3719 


3720 


3721 


3722 


3723 


3724 


3725 


3726 


3727 


E9 


3728 


3729 


3730 


3731 


3732 


3733 




3735 


3736 


3737 


3738 


3739 


3740 


3741 


3742 


3743 


EA 


3744 


3745 


3746 


3747 


3748 


3749 


3750 


3751 


3752 


3753 


3754 


3755 


3756 


3757 


3758 


3759 


EB 


3760 


3761 


3762 


3763 


3764 


3765 


3766 


3767 


3768 


3769 


3770 


3771 


3772 


3773 


3774 


3775 


EC 


3776 


3777 


3778 


3779 


3780 


3781 


3782 


3783 


3784 


3785 


3786 


3787 


3788 


3789 


3790 


3791 


EC 


3792 


3793 


3794 


3795 


3796 


3797 


3798 


3799 


3800 


3801 


3802 


3803 


3804 


3805 


3806 


3807 


EE 


3808 


3809 


3810 


3811 


3812 


3813 


3814 


3815 


3816 


3817 


3818 


3819 


3820 


3821 


3822 


3823 


EF 


3824 


3825 


3826 


3827 


3828 


3829 


3830 


3831 


3832 


3833 


3834 


3835 


3836 


3837 


3838 


3839 


FO 


3840 


3841 


3842 


3843 


3844 


3845 


3846 


3847 


3848 


3849 


3850 


3851 


3852 


3853 


3854 


3855 


F1 


3856 


3857 


3858 


3859 


3860 


3861 


3862 


3863 


3864 




3866 


3867 


3868 


3869 


3870 


3871 


F2 


3872 


3873 


3874 


3875 


3876 


3877 


3878 


3879 


3880 


3881 


3882 


3883 


3884 


3885 


3886 


3887 


F3 


3888 


3889 


3890 


3891 


3892 


3893 


3894 


3895 


3896 


3897 


3898 


3899 


3900 


3901 


3902 


3903 


F4 


3904 


3905 


3906 


3907 


3908 


3909 


3910 


3911 


3912 


3913 


3914 


3915 


3916 


3917 


3918 


3919 


F5 


3920 


3921 


3922 


3923 


3924 


3925 


3926 


3927 


3928 


3929 


3930 


3931 


3932 


3933 


3934 


3935 


F6 


3936 


3937 


3938 


3939 


3940 


3941 


3942 


3943 


3944 


3945 


3946 


3947 


3948 


3949 


3950 


3951 


P7 


3952 


3953 


3954 


3955 


3956 


3957 


3958 


3959 


3960 


3961 


3962 


3963 


3964 


3965 


3966 


3967 


F8 


3968 


3969 


3970 


3971 


3972 


3973 


3974 


3975 


3976 


3977 


3978 


3979 


3980 


3981 


3982 


3983 


F9 


3984 


3985 


3986 


3987 


3988 


3989 


3990 


3991 


3992 


3993 


3994 


3995 


3996 


3997 


3998 


3999 


FA 


4000 


4001 


4002 


4003 


4004 


4005 


4006 


4007 


4008 


4009 


4010 


401 1 


4012 


4013 


4014 


4015 


FB 


4016 


4017 


4018 


4019 


4020 


4021 


4022 


4023 


4024 


4025 


4026 


4027 


4028 


4029 


4030 


4031 


FC 


4032 


4033 


4034 


4035 


4036 


4037 


4038 


4039 


4040 


4041 


4042 


4043 


4044 


4045 


4046 


4047 


FD 


4048 


4049 


4050 


4051 


4052 


4053 


4054 


4055 


4056 


4057 


4058 


4059 


4060 


4061 


4062 


4063 


FE 


4064 


4065 


4066 


4067 


4068 


4069 


4070 


4071 


4072 


4073 


4074 


4075 


4076 


4077 


4078 


4079 


FF 


4080 


4081 


4082 


4083 


4084 


4085 


4086 


4087 


4088 


4089 


4090 


4091 


4092 


4093 


4094 


4095 
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POWERS OF TWO 



MATHEMATICAL CONSTANTS 



Hexodectmol Volui 



1 024 

2 048 



524 : 



0.062 5 

0.031 25 

0.015 625 

O.OO; 812 5 

0.003 906 25 

0.001 953 125 

0.000 976 562 5 

0.000 488 281 25 

0.000 244 140 625 

0.000 122 070 312 5 

0.000 06t 035 156 25 

0.000 030 517 578 125 

O.OOO 015 258 789 062 5 

0.000 007 629 394 531 25 

0.000 003 814 697 265 625 

0.000 001 907 348 632 812 5 





3.U159 26535 89793 


3.243F 


6A89 


n-l 


0.31830 VB861 83790 


0.517C 


C1B7 




1 .77245 38509 05516 


1 .C58F 


69 IC 


Inn 


1 . 1 4472 98856 49400 


1.250D 


048f 




2.71828 18284 59045 






^-1 


0.36787 9441 1 71442 


0.5E2D 


56D9 




I .040/ / 1 \AJ 1 ZtS 






'°3|0' 


0.43429 44819 03252 


0.6f2D 


EC55 




1 .44269 50408 88963 


1.7154 


7653 




0.57721 56649 01533 


0.93C4 


67E4 


IfiY 


-0.54953 93129 61645 


-0.8CAE 


9BC1 


■/2 


1.41421 35623 73095 


1.6A09 


E66e 


In2 


0.69314 71805 59945 


0.B172 


17F8 




0.30102 99956 63981 


0.4D10 


4D42 


-/TF 


3.16227 76601 66379 


3.2968 


075C 


In 10 


2.30258 40929 94046 


2. 4075" 


3777 



1 048 576 20 0.000 000 953 674 316 406 25 

2 097 152 21 0.000 000 476 837 158 203 125 

4 194 304 22 0.000 000 238 418 579 101 562 5 

B 388 608 2 3 0.000 000 119 209 289 550 781 25 

16 777 216 24 0.000 000 059 604 644 775 390 625 

33 554 432 25 0.000 000 029 802 322 387 695 312 S 

67 108 864 26 0.000 000 014 901 161 193 847 656 25 

134 217 728 2 7 0.000 000 007 450 580 596 923 828 125 

268 435 456 28 0.000 000 003 725 290 298 461 914 062 5 

536 870 912 29 0.000 000 001 862 645 149 230 957 031 25 

I 073 741 824 30 0.000 000 000 931 322 574 615 478 515 625 

! 147 483 648 31 0.000 000 000 465 661 287 307 739 257 5 



4 294 967 296 
8 589 934 592 
17 179 869 184 
34 359 738 368 



0,000 000 000 232 830 643 653 869 628 906 25 

000 000 000 116 415 321 826 934 814 453 125 

0.000 000 000 058 207 6^' 913 467 407 226 562 5 

0.000 000 000 029 103 83^"456 733 703 613 281 25 









68 


719 


476 


736 


36 


0.000 


000 


000 OU 551 


915 


228 366 851 


806 640 625 




















137 


438 


953 


472 


37 


0.000 


000 


000 007 275 


957 


614 183 425 


903 320 


312 5 




















274 


877 


906 


944 


38 


0.000 


000 


000 003 637 


978 


807 091 712 


951 660 


156 25 




















549 


755 


813 


888 


39 


0,000 


000 


000 001 818 


989 


403 545 856 


475 830 


078 125 


















1 


099 


511 


627 


776 


40 


0.000 


000 


000 000 909 


494 


701 772 928 


237 915 039 062 


5 
















2 


199 


023 


255 


552 


41 


0,000 


000 


000 000 454 


747 


350 886 464 


118 957 


519 531 


25 
















4 


396 


046 


511 


104 


42 


0,000 


000 


000 000 227 


373 675 443 232 


059 478 


759 765 625 
















8 


796 


093 


022 


208 


43 


0.000 


000 


000 000 113 


666 


837 721 616 


029 739 


379 662 


812 


5 














17 


592 


186 


044 


416 


44 


0.000 


000 


OOO 000 056 


843 


418 860 808 


014 869 


689 941 


406 


25 














35 


184 


372 


068 


632 


45 


0.000 


000 


000 000 028 


421 


709 430 404 


007 434 


844 970 


703 


125 














70 


366 


744 


177 


664 


46 


0.000 


000 


000 000 014 


210 


854 715 202 


003 717 


422 485 


351 


562 


5 












140 


737 


488 


355 


328 


47 


0.000 


000 


000 000 007 


105 


427 357 601 


001 858 


711 242 


675 


781 


25 












281 


474 


976 


710 


656 


48 


0.000 


000 


OOO 000 003 


552 


713 678 800 


500 929 


355 621 


337 


890 


625 












562 


949 


953 


421 


312 


49 


0.000 


000 


000 000 001 


776 


356 839 400 


250 464 


677 810 668 


945 


312 


5 










125 


899 


906 


842 


624 


50 


0,000 


000 


000 000 000 


888 


178 419 700 


125 232 


338 905 


334 


473 


656 


25 








2 


251 


799 


813 


685 


248 


51 


0.000 


000 


000 000 000 


444 


069 209 850 


062 616 


169 452 


667 


236 


328 


125 








4 


503 


599 


627 


370 


496 


52 


0.000 


000 


000 000 000 


222 


044 604 925 


031 308 


084 726 


333 


618 


164 


062 


5 






9 


007 


199 


254 


740 


992 


53 


0.000 


000 


000 000 000 


) 1 1 


022 302 462 


515 654 


042 363 


166 


809 


082 


031 


25 






18 


014 


398 


509 


481 


984 


54 


0.000 


000 


000 000 000 


C55 


511 !51 231 


257 827 


02! 181 


583 


404 


541 


015 


625 






36 


028 


797 


018 


963 


968 


55 


0.000 


000 


000 000 000 


027 


755 575 615 


628 913 


510 590 


791 


702 


270 


507 


612 


5 




72 


057 


594 


037 


927 


936 


56 


0.000 


000 


000 000 000 


013 


877 787 807 


814 456 


755 295 


395 


851 


135 


253 


906 


25 




144 


115 


188 


075 


855 


872 


57 


0.000 


000 


000 000 000 


006 


938 893 903 


907 228 


377 647 


697 


925 


567 626 


953 


125 




288 


230 


376 


151 


71 1 


744 


58 


O.OOO 


000 


000 000 000 003 469 446 951 


953 614 


188 823 


848 


96? 


783 


813 


476 


562 




576 


460 


752 


303 


423 


488 


59 


0.000 


000 


000 000 000 


001 


734 723 475 


976 807 


094 4 1 i 


924 


481 


391 


906 


73B 


281 




152 


921 


504 


606 


846 


976 


60 


0.000 


000 


000 000 000 


OOO 867 361 737 


988 403 


547 205 


962 


240 


695 


953 


369 


140 


2 


305 


843 


009 


213 


693 


952 


61 


0.000 


000 


000 000 000 000 433 680 866 


994 201 


773 602 


981 


120 


347 


976 664 


570 


4 


611 


686 


018 


427 


387 


904 


62 


0.000 


000 


000 000 000 


000 216 840 434 


497 100 


886 801 


490 


560 


173 


986 


342 


285 


9 


223 


372 


036 


854 


775 


806 


63 


0.000 


000 


000 000 000 


000 


108 420 217 


248 550 


443 400 


745 


280 086 994 


171 


142 
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POWERS OF SIXTEENio 











1 





0.10000 


00000 


00000 


00000 


X 


10 










16 


1 


0.62500 


00000 


00000 


00000 


X 


10-' 
10-2 
10-= 
10-^ 
10-* 
10-^ 










256 


2 


0.39062 


50000 


00000 


00000 


X 








4 


096 


3 


0.24414 


06250 


00000 


00000 


X 








65 


536 


4 


0.15258 


78906 


25000 


00000 


X 






1 


048 


576 


5 


0.95367 


43164 


06250 


00000 


X 






16 


777 


216 


6 


0.59604 


64477 


53906 


25000 


X 






268 


435 


456 


7 


0.37252 


90298 


46191 


40625 


X 


10-^ 

10-' 

10-'° 

io-'2 

10-' = 

10-'^ 

10-'= 

10-'* 

io-'« 




4 


294 


967 


296 


8 


0.23283 


06436 


53869 


62891 


X 




68 


719 


476 


736 


9 


0.14551 


91522 


83668 


51807 


X 


1 


099 


511 


627 


776 


10 


0.90949 


47017 


72928 


23792 


X 


17 


592 


186 


044 


416 




0.56843 


41886 


08080 


14870 




281 


474 


976 


710 


656 


12 


0.35527 


13678 


80050 


09294 




503 


599 


627 


370 


496 


13 


0.22204 


46049 


25031 


30808 


X 


057 


594 


037 


927 


936 


14 


0.13877 


78780 


78144 


56755 


X 


921 


504 


606 


846 


976 


15 


0.86736 


17379 


88403 


54721 


X 



10" 

1 

A 
64 
.3E8 
27 1 
1 86A0 







F 


4240 






98 


9680 






5F5 


E 100 






3B9A 


CAOO 




2 


540B 


E400 




17 


4876 


E800 




E8 


D4A5 


1 000 




918 


4E72 


AOOO 




5 AF3 


1 07A 


4000 


3 


8D7E 


A4C6 


8000 


23 


8652 


6FC1 


0000 


163 


4578 


5D8A 


0000 


DEO 


B6B3 


A764 


0000 


8AC7 


2304 


89E8 


0000 



OF TEN 16 



n 




10 





1.0000 


0000 


1 


0.1999 


9999 


2 


0.2 8F5 


C28F 


3 


0.4 189 


374B 


4 


0.6 8 DB 


8BAC 


5 


0.A7C5 


AC47 


6 


0.1 0C6 


F7A0 


7 


0.1 AD7 


F29A 


8 


0.2 AF 3 


1 DC4 


9 


0.44B8 


2FA0 


10 


0.6 DF3 


7F67 


1 1 


O.AFEB 


FFOB 


12 


0.1 197 


9981 


13 


0.1C25 


C2-6 8 


14 


0.2 D09 


370D 


15 


0.480E 


BE7B 


16 


0.734A 


CA5F 


17 


0.B877 


AA3 2 


18 


0.1272 


5DD1 


19 


0.1 D83 


C94F 



0000 


0000 






9999 


999A 






5C28 


F5C3 


X 


16-' 


C6A7 


EF9E 


X 


16-2 


7 IOC 


B296 


X 


16- = 


1 B47 


8423 


X 


16-^ 


B5E D 


8D37 


X 


16-^ 


BCAF 


4858 


X 


16-= 


6 118 


73BF 


X 


16-* 


9B5 A 


52CC 


X 


16-^ 


5E F6 


E ADF 


X 


16-8 


CB24 


AAFF 


X 


16-' 


2DE A 


1119 


X 


,6-' 


4976 


81C2 


X 


16-'° 


4257 


3604 


X 


16-" 


9D58 


566D 


X 


16- '2 


6226 


FOAE 


X 


16-' = 


36A4 


B449 


X 


16-'^ 


D243 


ABA1 


X 


16-'^ 


B6D2 


AC35 


> 


16-' = 
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APPENDIX G 



Variations for Original ROMs 

(Revision Level 2) 



This appendix describes the differences between the new ROMs, as pre- 
sented in the chapter nnaterial, and the old ROMs. 

Chapter 2: STARTUP 

Asterisks (') appear in place of the pound signs (#) in the initial display line 
of the original ROMs: 

"•COMMODORE BASIC*" 
You can use this as an indicator of which ROMs your PET has. 

Chapter 3: ARRAYS 

On the old ROMs, the total nunnber of array elements in any one array is 
linnited to 256. For example, for a one-dimensional array, elements may go from 
to 255. For a two-dimensional array with dimension 2 in the second subscript, ele- 
ments may go from (0,0), (1,0). . .(127,0), (01), (1,1). . .(127,1). 

An example of programming within this restriction is given below under 
"Chapter 5." 
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Chapter 3: DEVELOPING A PROGRAM, Interactive Programming 

In the old ROMs, the system location that enables the cursor to blink is loca- 
tion 548. To enable the cursor, you would use the statennent: 

80 POKE 548,0 Enable cursor (old ROMs) 

instead of 

80 POKE 167,0 Enable cursor (new ROMs) 

Chapter 4: RND 

RND(O) is non-functional. An argunnent of zero returns a value that is con- 
stant, or nearly constant, and that may vary from PET to PET. 

You will have to use -Tl to generate random seeds. This is the method used 
in all of the examples in Chapter 5 under "Generating Random Numbers." 

Chapter 5: FILES 

This section is for PET users who are having problems reading data files 
using the old ROMs. If your PET has the old ROMs and you intend to use data files 
frequently, you should seriously consider replacing the old ROMs with the new, as 
the new ROMs ensure greater reliability when reading and writing data files. 

If you do plan to use the old ROMs, you must do a little extra programming 
to get around these problems. When writing data to the data tape, the old ROMs 
neglect to initialize the pointer to the start address of the cassette tape buffer, and 
also fail to leave enough blank space on the tape between physical records. Con- 
sequently, when the PET attempts to read the data back from the data tape, the 
problems may result in lost or garbled data. Here are a few precautions you can 
take to overcome these obstacles. 

1 . Initialize the pointer of the cassette buffer start address. Because 
the old ROMs fail to initialize the start address to the cassette tape buffer before a 
file is OPENed, you must be sure to do so before opening a file with a series of 
pokes: 

cassette *1: POKE 243,1 22:POKE 244,2;OPEN 1,1,1 
cassette #2: POKE 243,58 :POKE 244,3:0PEN 2.2,1 

Memory address locations 243 and 244 point to the start address of the cur- 
rent tape buffer. By POKEing in the above values the pointer will be initialized pro- 
perly. 

2. Force interrecord gaps. The old ROMs do not leave enough blank 
space on the tape between physical records. When the PET attempts to read back 
the data with an INPUT* or GET*, if the physical records are too close together 
the data cannot be read, resulting in read errors and lost data. To prevent this, you 
can force larger interrecord gaps to be written between records by calling a 
routine to advance the tape each time the cassette buffer is emptied. 
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Before forcing an interrecord gap you must detect when the cassette buffer 
has written out a "physical record" or "block" of data to the tape. The buffer holds 
1 91 characters (or 1 91 bytes). A full buffer is a signal that a block of data was just 
written to the tape since the contents of the buffer are dumped only after it has 
reached its capacity. By detecting a full buffer, you can infer that a block of data 
was just written to the tape and an interrecord gap is needed. 

How to Detect a Full Buffer 

When writing data out to a tape, following each PRINT* statement the 
length of each data item is calculated and kept in an accumulator, which is then 
compared to the buffer limit (191 characters). When the accumulator equals 191 
the writing to the tape is stopped until an interrecord gap is written on the tape. 
Below is a sample program: 

J. POKE 24.3 .. 1 22 : POKE 244 .. 2 : OPEN 1 .. 1 .. 1 

20 FOR K=l TO 100 

30 PRIHT#1.. K 

40 l=l=LEN <: STR* <: X > .) + 1 

50 IF <:G!T+Fi>>=191 GOSUE 1000 :REM *IF BUFFER FULL CALL SUB. 
60 QT=QT+R TO flDVflHCE TRPE* 

?0 NEXT X 
80 CLOSE 1 
90 END 

Line 20 prints a variable. If the variable printed (in this case, X) is numeric it 
must be converted to string form so the LEN function may be used to determine 
X's length, as shown in line 40: 

40 A=LEN(STR${X))+1 

One is added on to the lengths of the strings to include the carriage returns 
that are written on the tape following each data item. Line 50 accumulates the 
number of characters in the previous strings, (QT), plus A, and compares the total 
to 1 91 (the buffer limit). If the number of characters written to the tape (QT + A) is 
greater than or equal to 1 91 the entire buffer is written to the tape, and it is time to 
force an interrecord gap by calling the subroutine at 1000. However, if QT+A is 
less than 191 (QT+A<191), the buffer is not yet full. Line 60 increments QT by A, 
and the process keeps repeating until the buffer is full, and all the data is written 
from the buffer to the tape, interspersed with the interrecord gaps. 

Advancing the Cassette Tape 

There are three necessary steps in the routine to advance the tape: 

1. Turn on the cassette tape motor (POKE 5941 1,53). 

2. Use a wait loop to stall program while tape is advancing. 

3. Turn off the cassette tape motor (POKE 5941 1,61). 
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POKE 5941 1.53 pokes "53" into memory address location 5941 1 which con- 
trols the cassette motor. Value 53 turns on the motor to advance the tape. Once 
the motor is on, a wait loop lets the tape advance for a few jiffies. The wait loop 
will be discussed shortly. To stop the tape, a POKE 5941 1 ,61 turns off the cassette 
motor. The length of the wait loop may be varied or altered, but these two POKEs 
are absolutely necessary to turn the cassette motor on and off. 

Following is a sample wait loop inserted between the two POKE statements: 

1000 POKE 59411.. 53 REM *STFlRT TAPE MOTOR* 

1010 T=T1 

1020 IF <:TI-T><10 goto 1020 :REM *WFlIT 10 JIFFIES* 
1038 POKE 53411.. 61 REM *STOP TAPE MOTOR* 

1040 QT=0 
1050 RETURN 

Lines 1 01 to 1 020 malce up the wait loop. Line 1 01 sets variable T to the 
current value of Tl. Tl is the number of jiffies since the PET was powered up or the 
clock was zeroed. (A jiffy is 1 /60 of a second.) Tl is incremented once every jiffy, 
or 60 times a second. By subtracting T from Tl, the elapsed time is calculated. The 
program must wait until ten jiffies (1 /60 of a second) has elapsed before the pro- 
gram can continue. While Tl increments, until the difference between Tl and T 
equals ten jiffies the program is stalled, letting the cassette tape advance. This 
blank space on the tape is the interrecord gap. Once (Tl-T) equals ten, the next 
statement turns off the cassette motor with a POKE 5941 1,61. 

The routine calculates the space between each record. The tape is advanced 
exactly the same amount between each physical record because the time be- 
tween POKEing on and off the cassette motor will always be ten jiffies: 



The length of the wait loop may be adjusted by changing the constant of the 
condition expression: 

Tl - T < X 

The larger the value of X, the larger the interrecord gap will be. If you're 
unsure how long the interrecord gap should be, keep the wait loop between 5 and 
30 jiffies. It is always better to have the interrecord gap too long than too short. 
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There is one potential problem with this routine, though it is doubtful you 
will ever encounter the problenn. If the PET has been powered up for close to 
twenty-four hours, or you have set the internal clock close to the twenty-fourth 
hour, the routine might hang up during the wait loop. At 24:00:00 the jiffy clock is 
reset from 5184000 jiffies to zero. If T is assigned within a few jiffies of 5184000 
both Tl and the jiffy clock will be reset to zero. The result is that the condition 
Tl-T<10 will always be true (0000008-5183998 <10> and the wait loop will 
hang up infinitely because Tl-T will never be greater than nine. It is very improba- 
ble that this will ever happen to you, but you should use caution if the jiffy clock is 
nearing the twenty-fourth hour. 

Here is another way to advance the tape: 

POKE 59411.. 5:3 : REM ifrSTfiRT TAPE MOTOR* 

POKE 514.. REM .*ZERO JIFFV CLOCK* 

WRIT 514.. 16 -REM *WFlITS 16 JIFFIES* 

POKE 59411.61 REM *STOP TAPE MOTOR* 

POKE 514,0 pokes a zero into the low-order byte of the internal clock at 
memory address 514, wiping out the current jiffy time and resetting the clock to 
zero. The WAIT 514,16 inhibits further program action until the clock has incre- 
mented 16 jiffies. Meanwhile, the tape advances until memory address location 
514 contains 16 and the following POKE turns the cassette motor off. 

There is one drawback with this wait loop. Every time the jiffy clock is reset 
to zero the PET loses track of time. Therefore, this routine should NOT be used if it 
is important within the program that real time be kept or used in any way. 

Here is yet another way to implement a wait loop during the data tape 
advance: 

POKE 59411.. 5:3 

FOR 1=1 TO 60: NEXT I 

POKE 59411.. 61 

This method is simple but less accurate than the previous two. Using a FOR 
...NEXT loop, the program is stalled as the loop increments to the maximum value 
of I before turning off the motor. However, the time it takes to increment through a 
FOR. . . NEXT loop cannot be measured as accurately as time measured in jiffies, 
and thus the interrecord gaps cannot be precise. One advantage with this method 
is that it does not alter or inhibit the use of the jiffy clock in any way. 
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Let's go back to the original wait loop and connbine it with the routine that 
detects a full buffer. Below is a sample program which writes 100 numbers to a 
data tape with a FOR... NEXT loop. Within the loop is a check for a full buffer. If the 
buffer is full the data is written to the tape, and the subroutine at 1 000 is called to 
create an interrecord gap; 

i POKE 243 .. 1 22 : POKE 244 .. 2 : OPEN 1 .. 1 .. 1 

20 FOR K=l TO 100 

30 PR1NT#1.. X 

40 f=l=LEH C STR* < K > .) + 1 

50 IF 0;!T+I=I>>=131 GOSUB 1000 REM *IF BUFFER FULL CALL 

60 QT=QT+I=( SUE. TO FiDVPlNCE TAPE 

70 NEXT K 



10.50 RETURN 
where: 

A is the length of the printed string plus 1 for carriage return 
QT is the accumulator to add lengths of printed strings. 

If you follow these suggestions and routines you should have little or no 
troubles writing and reading data files. But, if you find that you cannot get the files 
to work even with these routines, you should install the new ROMs in your PET. 

Chapter 5: GENERATING RANDOM NUMBERS 

Do not try to use RND(-RND{0)) to generate random seeds; it will not work. 
Instead, use — Tl as shown in all of the examples. 

The RANDOM VERSION 2A sample program in Chapter 5 will not work on 
the original ROMs because of the 256-element array limitation. A second version 
of the program is shown below. It shows the lengths you have to go to in order to 
program with the 256-element array limitation. In this program the 1000-element 
table is divided into four quarters of 250 elements each. 

5 REM RftNDOM VERSION 2Pl 

10 REM **.***** E L R N K E T ******* 

20 REM RfiNDOM niSPLflV OF ONE 

30 REM CHflRFlCTER ENTERED FROM THE 

40 REM KEVEOPIRD 

50 REM ******************************* 

70 DIM Tl <249> .. T2<249::' .. T3<249:) .. T4<249:> 

75 T=4 :REM NUMBER OF TABLES 

76 N=250 :REM NO OF ELEMENTS 

80 GOSUB 200 REM INITIALIZE TABLES 

510 PRINT "HIT A KEV OR <R> TO END".; 

95 N 1 =H : N2=N : N3=N : N4=N 
100 GET C$-IF C*="" GOTO 100 



80 CLOSE 1 
90 END 

1000 POKE 59411.. 53 
1010 T=TI 

1020 IF CTI-TXIO GOTO 1020 
1030 POKE 59411.. 61 
1040 QT=0 



REM *START TAPE MOTOR* 



REM *WAIT 10 JIFFIES* 
REM *STOP TAPE MOTOR 
REM *RESET ACCUMULATOR 
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105 IF Ct=CHR*<l;3> GOTO 170 

110 PR I NT "n".: -REM CLEfiR SCREEN 

120 K=RNrK-TI> ;REri START NEW SEED 

125 C=':.fiSC(:C*>fiND128>/2 OR ':fiSC<C$>ftHli63> 

126 FOR L=1TO1000 REM 1 FOR EACH SPOT 

127 T';'=T*RNri<l> + l : REM PICK fl TABLE 

128 OH TX GOSUE 300.. 400. ■ 500. ■ 600 : REM GO PICK AN ELEMENT 
130 POKE a'c -REM IHSPLAV CHAR 

140 NEXT L 
160 GOTO 95 
170 END 

199 REM *.*SUER TO INITIALIZE TABLES** 

200 FOR 1=0 TO H-1 •Tl<i:-'' = I 'NEXT 

2 1 FOR I =0 TO N- 1 : T2 I .> = I +250 : NEXT 
220 FOR 1=0 TO N-1 TS'; I :> = 1+500: NEXT 
230 FOR 1=0 TO N-1 :T4'; I> = I+750:NEXT 
240 RETURN 

299 REM **SUBROUTINE FOR TABLE Tl** 

300 N1=H1-1 

305 REM IF EMPTV.. GO TO ANOTHER TABLE 

310 IF HI CO THEN ON I NT C3*RNri 1 J + 1 > GOTO 408.. 500. 600 

320 A;;='::Ni+i>*RNri<:i.> rem pick an elem 

330 A=T1 ■;A";>+3276S : REM FORM POKE ADDR 

340 TP=Ti a;;> : Tl a;;::-=ti <;ni ;:■ : ti <ni :)=tp : rem swap elements 

350 RETURN 

399 REM **SUBROUTINE FOR TABLE T2** 

400 N2=H2-1 

410 IF N2<0 THEN ON IHT<;3*RNn'; 1 .J + l .■■ GOTO 300.. 500.. 600 

420 a;;;=(:h2+i >*RHr(<: i y 

430 A=T2'::A/;::'+3276S 

440 tp=T2(:a,';::' : t2(:a;;:>=t2'::n2;> : T2(:n2:)=tp 

450 RETURN 

499 REM **SUBROUTINE FOR TABLE T3** 

500 H3=N3-1 

510 IF N3<0 THEN OH INT<3*RNDc: 1 > + l .J GOTO 300.. 400.. 600 
520 A";= < N3+ 1 > *RHD < 1 > 
530 A=T3'.-:AK> +32768 

540 TP=T3 < A/i > : T3 < FlK > =T3 C H3 > ■ T3 < N3 =TP 
550 RETURN 

599 REM **SUBROUTINE FOR TABLE T4** 

600 N4=H4-1 

610 IF H4<0 THEH ON INT<;3*RND< 1 ;> + l > GOTO 300.. 400.. 500 

620 A,":= < N4+ 1 *RNri < 1 

630 A=T4(:A";.')+3276S 

640 TP=T4 A-: .) : T4 C A,"; > =T4 < N4 > : T4 < N4 > =TP 
650 RETURN 
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Chapter 6: MEMORY MAP 

All of the changes in Chapter 6 are based on the fact that the memory map 
for the old ROMs was reorganized for the new ROMs. The memory map for the old 
ROMs is shown in Table G-1, at the back of this appendix. 



Chapter 6: PET BASIC INTERPRETER 

The system locations holding principal pointers in the user program area are 
different for the old ROMs. Your pointers, in place of Figure 6-2, are as shown in 
Figure G-1. Figure G-2, replacing Figure 6-4, also reflects these changes. 



Pointer address 



Start of program 
(247, 248) Start of text 



(144, 145) DATA statement pointer 



(124, 125) Start of variables 



(126, 127) End of vanables 



(128. 129) End of arrays 



(130, 131) End of strings 



(132, 133) Top of memory 



BASIC 
Statements 



Variables 



Arrays 



Typical Values 



1024 
1025 

1879 



1946 



2072 



2231 



8172 (8K system) 



Strings 



8191 (8K system) 
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Figure G-1. Principal Pointers in User Program Area 



Pointer Address 
(144, 145) DATA statement pointer 
(247, 248) OS Start of program 
(122, 123) Start of text 
(1 24, 1 25) Start of variables • 
(1 26, 1 27) Start of arrays 
(128, 129) Start of free space 



IVIemory 
Location 



(130, 131) End of stnngs 
(132, 1 33) Top of memory -J- 




8191 (8K system) 



Figure G-2. User Program Area on Power-up 
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Chapter 6: VARIABLES, Floating Point Variable Format 

Use the following program to examine floating point representations: 
10 INPUT 1=1 

20 K=PEEK ■;■ 1 £5 .■■ *256+PEEK C 1 24 > +2 

30 PR I NT R .; " = " ; PEEK < K > ; PEEK < K+ 1 ::■ PEK C X+2 > PEEK X+3 > ; PEEK X+4 > 
40 GOTO 10 

This is the same one given in Chapter 6 except for the system locations at line 20 
being PEEKed. 

Chapter 6: CONSTANTS 

Instead of pointer (42,43), the pointer in the diagrams is (124.125). 

Chapter 6: ARRAY STORAGE FORIVIAT 

Use the following program for viewing sample Array Area entries: 
J.0 DIM fl<:5::'..Br-:<2..2:).. 0*00:5 rem sample flRRi=ivs 

20 FOR 1=0 TO 5:fla:) = I NEXT 

30 FOR 1=0 TO 2: FOR ..T=0 TO 2 B,";'':.'J.. I > = lti0+3*I+J ^ HEKT J.. I 

40 FOR 1=0 TO 10:C*':;i::'=CHR*<fiSC<"Fl"::' + I."> :NEXT 

50 K=PEEKa27;;'*256+PEEK< 126:j -REM POINT TO BRRflV PiREfi 

60 V=PEEKU29>if:256+PEEK'; 12S> REM END OF FiRRflVS 

70 FOR I=X TO V 

80 PRINT I. .PEEK a:? 

90 GET D* IF D*="" THEN GOTO 96 : REM HIT KEV FOR NE:«;T ELEMENT 

100 ne;«:t 

This is the same as the program in Chapter 6 except for the system locations 
accessed in lines 50 and 60. 

Chapter 6: ASSEIVIBLY LANGUAGE PROGRAMMING 

For the old ROMs, item 2, Top of Core discussion should read as follows: 

2. Top of Memory. Memory locations 1 34 and 1 35 contain the pointer to 
the top of memory. On 8K PETs this value is 81 92. You can temporarily set the top 
of memory pointer to a lower address, thereby reserving a number of bytes from 
the new pointer value to the actual top of memory for storage of an assembly 
language program. To set the pointer, say, down 1000 bytes, you will need to 
store the value 7192 (8192-1000) converted into low, high address order, e.g.: 

High Low 
7192io= ICI816 ►ICie =28ioand ^8■^Q = 2A^Q 
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So 24 is to be stored at location 134 (low byte), and 28 is to be stored at location 
135 (high byte). The following instructions can be used: 

10 flL=PEEK<134> :RH=PEEK<135.:' : REM SAVE CURRENT POINTER 
20 POKE 132. 24: POKE 135.. 2S: REM TOP OF CORE NOW = 7192 



100 POKE 134..flL:P0KE 135.. AH REM RESTORE POINTER 

110 END 



Chapter 6: USR 

Since the accumulator is maintained in different system locations on the old 
ROMs, the accumulator description will read as follows: 



The parameter value is passed to the USR subroutine in system locations 
that function as a floating point accumulator (FAC) for all functions. The FAC 
resides in six bytes from memory locations 1 76 to 181 (B0-| g— B5-| g). The FAC has 
the following format: 

178 179 180 181 



Memory location: 176 177 





r 

1 


Fraction 








11 
1 

J. 






Sign 



Exponent 



(FAC 
Floating 
Point) 



_ O=positive 
-1 ^negative 



Like floating point variables, the exponent is stored in excess 1 28 format, and the 
fraction is normalized with the high-order bit of byte 177 (the high-order byte of 
the fraction) set to 1. The difference between this format and the variable format 
is that the high-order 1 bit is present in byte 1 77 of the FAC. An extra byte (1 81 ) is 
used to hold the sign of the fraction. (This is done for ease of manipulation by the 
functions that use the FAC). 



1. PET User Notes. Volume 1. Issue 6. Sept.-Oct. 1978, pg. 14, 
"Cassette File Usage Summary" by Jim Butterfield. 

2. Best of the PET GAZETTE, pg. 38 
"On Data Files:", by Michael Richter 
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Table G-1. PET Memory Map (Rev 2 ROMs) 



Memory Address 


Sample Value | 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 1 








Page (0-255) 










USR Function Locations 


u 


0000 


76 


4C 


Constant 6502 JMP instruction 


1-2 


0001-0002 


826 


033A 


User address jump vector 










Terminal I/O IVIaintenance 


3 


0003 





00 


Active input device number 










(0=keYboard) 


4 


0004 





00 


No. of nulls to print after CR/LF 










(O = normal) 


5 


0005 





00 


Cursor position for POS function (0-255} 


6 


0006 


127 


7P 


Terminal widtfi (unused) 


7 


0007 


127 


/ r 


Limit for scanning source columns 










(unused) 


8 


0008 


60 


3C 


Line number storage preceding buffer 


9 


0009 


3 


Uo 


Constant 


10-89 


OOOA-0059 


48 


■an 


BASIC input line buffer (80 bytes) 


90 


005A 







General counter for BASIC 


91 


005B 





00 


r-^alimitor flan fnr nimtp mnHp ^Pan 
Ueinillicr lldy lUi L^uuic 1 Muuc ovjtiii 


92 


005C 


255 


pp 


Input buffer pointer, general counter 










Evaluation of Variables 


93 


005D 





00 


Flag for dimensioned variables 


94 


005E 





00 


Flag for variable type! 










00=numeric 










FF=string 


95 


005F 





uu 


Flag for numeric variable type! 










O0=floating point 










80=integer 


96 


0060 





00 


Flag to allow reserved words in strings 










and remarks 


97 


0061 





00 


Flag to allow subscripted variable 


98 


0062 





00 


Flag for input type; 










0-INPUT 










64-GET 










152=READ 


99 


0063 





00 


Flag sign of TAN function 


100 


0064 





00 


Flag to suppress output: 










+ normal 










- suppressed 


101 


0065 


104 


68 


Index to next available descriptor 


102-103 


0066-0067 


101 


0065 


Pointer to last string temporary 


104-111 


0068-006F 


2 


0002 


Table of double-byte descriptors that 










point to variables (8 bytes) 


112-113 


0070-0071 


14525 


38BD 


Indirect index #1 


114-115 


0072-0073 


62983 


F607 


Indirect index #2 


116 


0074 


1 


01 


Pseudo-register for function operands 










(6 bytes) 


117 


0075 


234 


EA 




118 


0076 





00 




119 


0077 





00 




120 


0078 





00 




121 


0079 





00 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










Data BASIC Storage Maintenance 


122-123 


007A-0U/D 


1 025 


0401 


Pointer to start of text 


124-125 


007C-007D 


1946 


079A 


Pointer to start of variables 


126-127 


007E-007F 


2072 


0818 


Pointer to end of variables 


128-129 


0080-0081 


2231 


08B7 


Pointer to end of arrays 


130-131 


0082-0083 


8192 


2000 


Pointer to start of strings (moving down) 


132-133 


0084-0085 


81 91 


1 FFF 


Pointer to end of strings (top of available 










RAM) 


134-135 


0086-00o7 


81 92 


2000 


Pointer to linnit of BASIC memory 


136-137 


oooo-uuciy 


2000 


07D0 


Line number of current line being 










executed 










— 1 in 137=direct mode statement 


1 oo-i jy 


UUoA-UUOD 




uuot 


Line number for last line executed 










before LUN I 


^ Af\ 1/11 


UUoC-UUoU 




U/oZ 


Pointer to next line to be executed after 










CONT 


142-143 


UUot-UUOr 




U't/ t 


Line number of current DATA line 


1 44- 1 45 


ooyu-uuyi 


1 879 


0757 


Pointer to current DATA line 


146-147 


0092-0U93 


1 3 


OOOD 


Next DATA item within line 


148-149 


0094-0095 


89 


0059 


Current variable name 


,150-151 


0096-0097 


2032 


07 FO 


Pointer to current variable 


152-153 


0098-0099 


2032 


07F0 


Pointer to next FOR. . . NEXT variable 


154-155 


009A-009B 


31999 


7CFF 


Pointer to current operator in ROM table 


156 


009C 





00 


Mask for current logical operator 


157-158 


009D-009E 


898 


0382 


Pointer to user function FN definition 


159-160 


009F-00A0 


104 


0068 


Pointer to a string description 


161 


00 A 1 


221 


DD 


Length of string 


162 


00 A2 


3 


03 


Constant used by garbage collection 










routine 


163 


00A3 


76 


4C 


Constant 6502 JMP instruction 


1 64- 1 65 


00A4-00A5 





0000 


Jump vector for user function FN 


166-171 


OOA6-O0AB 


1 29 


81 


Floating point accumulator #3 {6 bytes) 


172-173 


OOAC-OOAD 





00 


Block transfer pointer #1 


174-175 


UUAt-UUAh 





00 


Block transfer pointer #2 


1 76-1 81 


UUdU-Uvdd 






Floating point accumulator (FAC)#1 










(6 bytes) 









UU 


I /D UUdU exponent -r izo 









00 


1// UUtit Fraction ivlbD hioating 










Point 









00 


178 00B2 Fraction 









00 


179 00B3 Fraction MSB Integer 









00 


180 00B4 Fraction LSB 









00 


181 00B5 Sign of fraction (0 if zero or 










positive. —1 if negative) 


182 


00B6 





00 


Copy of FAC #1 sign of fraction 


183 


00B7 





00 


Counter for number of bits to shift to 










normalize FAC # 1 


184-189 


00B8-00BD 





00 


Floating point accumulator #2 (6 bytes) 


190 


OOBE 





00 


Overflow byte for floating argument 


191 


OOBF 





00 


Copy of FAC #2 sign of fraction 


192-193 


00C0-00C1 


258 


0102 


Conversion pointer 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 




HfixsdocinnsI 


Decimal 


Hexadecimal 










RAM Subroutines 


1 94-1 99 




230 


E6 


Routine to fetch next BASIC character 


200 


00C8 


173 


AD 


Entry to refetch current character 


201 -202 


nnrQ.nnrA 


1929 


0789 


Pointer to source text 


203-223 


nnrR-noDF 


201 


C9 


Work area for RND function 










OS Page Zero Storage 


00/1 90P. 


UUCU L/UC 1 


33728 


83C0 


Pointer to start of line where cursor is 










flashing 









00 


Column position where cursor is flash- 










ing (0-79) 


227-228 


00E3-0UE4 


33792 




Utility pointer 


229-230 


00t5-00E6 


1929 


0789 


End of current program 


231-233 


uut /-uuby 




rt 


Utility 


234 


OOEA 





00 


Flag for puote mode, — not Quote mode 


235-237 


OOEB-OOED 


1 92 


CO 


Utility 


238 


OOEE 





00 


No of characters in current file name 


239 


once 
UUtr 




05 


Piirrtint Innir-al filp niimhpr 
\^UMUIlL lUyiljal IMC ilUIMUCi 


240 


on en 


255 


FF 




241 


UUr 1 


63 


3F 


GPIB device number 


242 


00F2 


jy 


27 


Max. no. of characters on current line 










(39,79) 


243-244 




634 


027A 


Pointer to start of current tape buffer 










(634 or 826) 


245 


00F5 


23 


17 


Line number wfiere cursor is flashing 










(0-24) 


246 


00F6 


10 


OA 


1 /O storage 


247-248 


00F7-OOF8 


1024 


0400 


OS pointer to program 


249-250 


O0F9-OOFA 


3100 


0C1C 


Pointer to current file name 


251 


UUrD 


Q 


00 


Number of Insert keys pushed to go 


252 


OOFC 


9 


09 


Serial bit shift word 


253 


OOFD 





00 


Number of blocks remaining to 










read / write 


254 


OOFE 





09 


Serial word buffer 


255 


OOFF 


243 


F3 


ni/orflniA/ h\/to fnr hinarv tn A'^PII rnn- 










versions 








Page 1 


(256-511) 


256-up 


01 00- up 


32 


20 


Tape read working storage (up to 511) 










and conversion stg. 










256-318 For error correction in tape 










reads (62 bytes) 










256-266 Binary to ASCII conversion 










(11 bytes) 


51 1-down 


01 FF-down 





00 


Stack (down to 256) 








Page 2-3 


(512-1023) 










OS Working Storage 


512-514 


0200-0202 


3801352 


3 AO 108 


24-hour clock incremented every 1 /60 










second (jiffy). Resets every 5.184,000 










jiffies (24 hours). Stored in low to 










high order. 



416 



Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


515 


0203 


255 


FF 


Matrix coordinate of key depressed at 










current jiffy. 










1-80=key 










255=no key 


516 


0204 





00 


Status of SHIFT key: 










0=unshifted (up) 










1— sfiifted (down) 


517-518 


0205-0206 


37916 


941 C 


Secondary jiffy clock 


519 


0207 


52 


34 


Interrupt driver flag for cassette #1 ON 










switch 


520 


0208 





00 


Interrupt driver flag for cassette #2 ON 










switch 


521 


0209 


255 


FF 


Keyswitch PIA 


522 


020A 





00 


Utility 


523 


020B 





00 


I/O flag: 










0=LOAD 










1=VERIFY 


524 


020C 





00 


1 /O status byte 


525 


020D 





00 


Number of characters in keyboard buffer 










(0 to 9) 


526 


020E 





00 


Flag to indicate reverse field on 










(O = normal) 


527-536 


020F-0218 


85 


55 


Keyboard buffer (10 bytes) 


537-538 


02 19-021 A 


34048 


8500 


Hardware interrupt vector 


539-540 


021B-021C 





0000 


6502 BRK instruction interrupt vector 


541-546 


021D-0222 






Input routine storage (6 bytes) 






13 


OD 


542 021 E No. of characters on screen 










line 


547 


0223 


255 


FF 


Key image 


548 


0224 


1 


01 


Flag for cursor enable: 










0=Enable 










1 =Disable 


549 


0225 


11 


OB 


Counter to flip cursor (20 to 1) 


550 


0226 


32 


20 


Copy of character at current cursor posi- 










tion 


551 


0227 





00 


Flag for cursor on/off: 










O=cursor moved 










1 =blink started 


552 


0228 





00 


Flag for tape write 


553-577 


0229-0241 






High byte of screen line addresses 










553-559=128 (lines 1-7) 










560-565 = 129 (lines 8-13) 










566-572 = 130 (lines 14-20) 










573-577 = 131 (lines 21-25) 


578-587 


Uz42-U24d 


5 


05 


Table of logical numbers of open files 


588-597 


024C-0255 


5 


05 


Table of device numbers of open files 


598-607 


0256-025F 


255 


FF 


Table of secondary address modes of 










open files 


608 


0260 





00 


Flag for input source: 










O=keyboard buffer 










1 =screen memory 


609 


0261 





00 


I/O utility 


610 


0262 


1 


01 


Number of open files (index into tables) 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


61 1 


0263 





00 


Default input device number 












612 


0264 


3 


03 


riofaiilt mi + niit Hpwirp niirtlhpr 

LfeidUll UUipUl UcVl^C iiuiMutii 










(3=^screen) 


613 


0265 





00 


Tape parity byte 


614 


0266 





00 


I/O utility 


615 


0267 





00 


I/O utility 


616 


0268 





00 


Byte pointer in filename transfer 


617 


0269 





00 


I/O utility 


618 


026A 


255 


FF 


I/O utility 


619 


026B 





00 


I/O utility 


620 


026C 


8 


08 


Serial bit count 


621 


026D 





00 


Count of redundant tape blocks 


622 


026E 





00 


Tape utility 


623 


026F 





00 


Cycle counter flip for eacfi bit read from 










tape 


624 


0270 





00 


Countdown syncfironization on tape 










write 


625 


0271 





00 


Tape buffer 1 index to next cfiaracter 


626 


0272 





00 


Tape buffer 2 index to next cfiaracter 


627 


0273 





00 












read 


628 


0274 





00 


clQrt tn in/Hl/^ata hit/)^\/tp tanp prrnr 

i^iag to inaicdic uii/uyie Ldpt^ eirui 


629 


0275 





00 


Flag to indicate tape error 










0— first half-byte marker not written 


630 


0276 





00 


Flag to indicate tape error 










0=2nd fialf-byte marker not written 










/Tape dropout counter 


631 


0277 





00 


Tape dropout counter 


632 


0278 


128 


80 




633 


0279 


9 


09 


Cfiecksum utility 


634-825 


027A-0339 


1 


01 


Tape buffer for cassette #1 (192 bytes) 


^ -^>=>. 826-1017 


033A-03F9 


173 


AD 


Tape buffer for cassette #2 (192 bytes) 


1018-1023 


03FA-03FF 


28 


IC 


Utility space/unused. 








Page 4-32 


(1024-8191) 


1024-8191 


0400-1 FFF 





00 


User program area 








Page 33-128 (8192-32767) 


8192-32767 


2000-7FFF 





00 


1 Expansion RAfyl 








Page 129-144 


(32768-36863) 


32768-36863 


8000-8FFF 


12 


OC 


TV RAM 










32768-33767 Display memory 










(1000 bytes) 








Page 145-195 


(36864-49151) 


36864-49151 


9000-BFFF 





00 


1 Expansion ROM 






Pag€ 


193-232 BASIC 


(49152-59391) 










Pointers to BASIC Routines 


49152-49153 


C000-C001 


50973 


C71D 


Pointer -1 to END" 


49154-49155 


C002-C003 


50760 


C648 


Pointer -1 to FOR 


49156-49157 


C004-C005 


52277 


CC35 


Pointer -1 to NEXT 



" These memory locations contain the address of the byte preceding the specified BASIC routines, 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


49158-49159 


C006-C007 


511 83 


^ 1 or 


Pointer —1 to DATA 


49160-49161 


C008-C009 


D 1 yuy 


CAC5 


Pointer —1 to 1NPUT# 


49162-49163 


COOA-COOB 


51 935 


\jfWjv 


Pnintpr —1 tn INPUT 


49164-49165 


COOC-COOD 


531 04 




PnintPr —1 tn DIM 


49166-49167 


COOE-COOF 


52003 


CB23 




49168-49169 


C010-C011 


51356 


C89C 


Pnlntor 1 in 1 FT 


49170-49171 


C012-C013 


51 100 


C79C 


roinier i xo ouiw 


49172-49173 


C014-C015 


51060 


C774 


rointer — i lo nui\ 


49174-49175 


C016-C017 


51231 


C81 F 


Pointer — 1 to IF 


49176-49177 


C018-C019 


50956 


C70C 


rointer — 1 to ntb l Unt 


49178-49179 


C01A-C01B 


51071 


C77F 


n^'-^*^^ •\ #^ ^r^CiiD 

Pointer —1 to (jUoUd 


49180-49181 


C01C-C01D 


51 145 


C7C9 


rOIFIter — 1 to nt 1 UnlN 


49182-49183 


C01E-C01F 


51250 


C832 


Pointer — 1 to REM 


49184-49185 


C020-C021 


50971 


C71 B 


Pointer — I to b i Ur 


49186-49187 


C022-C023 


51266 


C842 


Pointer —1 to ON 


49188-49189 


C024-C025 


55041 


D701 


Pointer —1 to WAIT 


49190-49191 


C026-C027 


65492 


FFD4 


Pointer — i to luau 


49192-49193 


C028-C029 


65495 


FFD7 


roinier i lo oAvt 


49194-49195 


C02A-C02B 


65498 


FFDA 


rOinter l to vtnirr 


49196-49197 


C02C-C02D 


53908 


D294 


Pointer —1 to DEF 


49198-49199 


CC2E-C02F 


55032 


D6FB 


roinier ~ i to ruNc 


49200-49201 


C030-C031 


51 582 


C97E 


Pr\intor 1 PRIKiTJt 

rOlrlLcl 1 LU rnii'J I tt 


4Q9n9 4Q9m 




51614 


C99E 


Pnint(=ir —1 tn PRINT 


49204-49205 


C034-C035 


51012 


C744 


Pninti^r —1 tn PONT 
rUllllci 1 lU VjWIn I 


49206-49207 


C036-C037 


50599 


C5A7 


Pointer -1 to LIST 


49208-49209 


C038-C039 


51055 


C76F 


Pointer -1 to CLR 


49210-49211 


C03A-C03B 


51588 


C984 


Pointer -1 to CMD 


49212-49213 


C03C-C03D 


65501 


FFDD 


Pointer -1 to SYS 


49214-49215 


C03E-C03F 


65471 


FFBF 


Pointer -1 to OPEN 


49216-49217 


C040-C041 


65474 


FFC2 


Pointer -1 to CLOSE 


49218-49219 


C042-C043 


51870 


CA9E 


Pointer -1 to GET 


49220-49221 


C044-C045 


50512 


C550 


Pointer -1 to NEW 


49222-49223 


C046-C047 


56075 


□BOB 


roinier lo ouin 


49224-49225 


C048-C049 


56222 


DB9E 


rOinier lo iin i 


49226-49227 


C04A-C04B 


56106 


DB2A 


rOinier lo mdo 


49228-49229 


C04C-C04D 





0000 


roimer to uon pointer 


49230-49231 


C04E-C04F 


53860 


D264 


roinier to rnc 


49232-49233 


C050-C051 


53893 


D285 


roinier to ruo 


49234-49235 


C052-C053 


56868 


DE24 


roinier to oun 


40236-49237 


C054-C055 


57157 


DF45 


rointsr to niNL' 


49238-49239 


C056-C057 


55487 


D8BF 


Pnintor tn 1 C\Ci 


49240-49241 


C058-C059 


56992 


DEAO 


Pnintor tn FVP 


49242-49243 


C05A-C05B 


57246 


DF9E 


Pnintor tn CCi*> 
r u 1 r i LCI lu v> v-* o 


49244-49245 


C05C-C05D 


57253 


DFA5 


Pnintor tn ^IN 

rUl [ 1 LtJI lU Ol IN 


49246-49247 


C05E-C05F 


57326 


□FEE 


Pnintor tn TAN 
rUlMlcl LU 1 MIN 


49248-49249 


C060-C061 


57416 


E048 


Pointer to ATN 


49250-49251 


C062-C063 


55014 


D6E6 


Pointer to PEEK 


49252-49253 


C064-C065 


54868 


D654 


Pointer to LEN 


49254-49255 


C066-C067 


54089 


D349 


Pointer to STR$ 


49256-49257 


C068-C069 


54917 


D685 


Pointer to VAL 


49258-49259 


C06A-C06B 


54883 


D663 


Pointer to ASC 


49260-49261 


C06C-C06D 


54724 


D5C4 


Pointer to CHR$ 


49262-49263 


C06E-C06F 


54744 


D5D8 


Pointer to LEFTS 



*• These memory locations contain the address of the first byte of the specified BASIC routines. 



Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


DecifTisI 


Hexadecimal 


Decimal 


Hexadecimal 


49264-49265 


C070-C071 


54788 


D604 


Pointer to RIGHTS 


49266-49267 


C072-C073 


54799 


D60F 


Pointer to MID$ 




49268-57343 


C074-DFFF 








BASIC Routines 










Starting Address Function 










49836 


C2AC 


FOR. . . NEXT staci< 














check 










49882 


C2DA 


Insert line space 














marker 










49949 


C31D 


Stack overflow check 










50007 


C357 


Error message 














abort 










50057 


C389 


READY 










50068 


C394 


ExscutG hn© 










50092 


C3AC 


H3ndl6 n6w line 










50224 


C430 


Rschsin linss sftsr 














insGrt/dGl6tG 










50274 


C462 


1 n r^j it 1 1 nP 










50297 


C479 


Gfit chsrsctsr from 














i nni it 1 inp 










5031 7 


C48D 


KGyword GncodGr 










50466 


C522 


Lins numbGr 














SG6rch 










50513 


C551 


NEW 










50586 


C59A 


^pt nnintpr tn Qtsrt 














u 1 yji uy 1 dill 










U\J\J\J\J 


C5A8 


LIST 










50761 


C649 


FOR. .NEXT 










50869 


C6B5 












50930 


C6F2 


Statement execute 










50957 


C70D 


RESTORE 










50972 


C71C 


STOP 










50974 


C71E 


END 










51013 


C745 


CONT 










51056 


C770 


CLR 










51061 


C775 


RUN 










51072 


C780 


GOSUB 










51101 


C79D 


GOTO 










51 146 


C7CA 


RETURN 










51 184 


C7F0 


DATA 










51198 


C7FE 


Next line scan 










51232 


C820 


IF 










51251 


C833 


REM 










51267 


C843 


ON. . . GOTO/GOSUB 










51299 


C863 


Number fetch 










51357 


C89D 


LET= 










51484 


C91C 


Digit check 










51583 


C97F 


PRINT* 










51589 


C985 


CMD 










51615 


C99F 


PRINT 










51751 


CA27 


Print string 










51780 


CA44 


Print character 










51831 


CA77 


Input data error 










51871 


CA9F 


GET 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



iviBiTiory 


AH fir Aft s 


Sample 


Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










51910 


CAC6 


INPUT* 










51936 


CAED 


INPUT 










51991 


CB17 


Input prompt 










52004 


CB24 


READ 










52242 


CC12 


Error messages 










52278 


CC36 


NEXT 










52370 


CC92 


Format checker 










52408 


CCB8 


Expression evaluator 










52538 


CD3A 


Stack argument 










52637 


CD9D 


Symbol evaluator 










52668 


CDBC 


Pi 










53105 


CF71 


DIM 










53207 


CFD7 


Variable table 














look-up 










53415 


D0A7 


Floating-to-integer 










53860 


□264 


FRE 










53880 


D278 


Integer-to-floating 










53893 


□285 


POS 










53909 


□295 


□EF 










54089 


□349 


STR$ 










54724 


D5C4 


CHR$ 










54744 


D5D8 


LEFTS 










54788 


□604 


RIGHTS 










54799 


□60F 


M\D$ 










54868 


□654 


LEN 










54883 


D663 


ASC 










54917 


□685 


VAL 










55014 


□6E6 


PEEK 










55033 


D6F9 


POKE 










55042 


□702 


WAIT 










55080 


□728 


Subtraction 










55103 


□73F 


Addition 










55487 


D8BF 


LOG 










55552 


D900 


Multiplication 










55646 


D95E 


Load number to 














AFAC 










55650 


□962 


Load variable to 














AFAC 










55780 


□9E4 


Division 










55924 


DA74 


Load Accumulator 














(FAC) 










55928 


□A78 


Load variable to FAC 










55979 


□AAB 


Store variable from 














FAC 










56075 


□BOB 


SGN 










56106 


DB2A 


ABS 










56222 


□B9E 


INT 










56868 


□E24 


SQR 










56878 


DE2E 


Raise AFAC to 














power FAC 










56992 


DEAO 


EXP 










57157 


□F45 


RND 










57246 


DF9E 


COS 










57253 


□FA5 


SIN 










57326 


□FEE 


TAN 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


57344-59391 


E000-E7FF 






Screen Editor 










Starting Address Function 










57416 E048 ATN 










57525 E0B5 Initialize BASIC 










system 










57910 E236 Clear screen 










57981 E27D Character fetch 


58004-58986 


E294-E66A 






Video driver 










58282 E3AA Scroll processor 










58346 E3EA Video display routine 










58185 E349 Quote mode ($EA) 










switcher 










58346 E3EA Print character 










58713 E559 Scroll 1 line 










58758 E586 Interrupt Request 










(IRQ) 


58987-59012 


E66B-E684 






Interrupt handler 


59013-59198 


E685-E73E 






Clock update 


59199-59227 


E73F-E758 






Keyboard scan 


59228-59348 


E75C-E7D4 






Keyboard encoding table 




Pane 9Zt. 

rays ^^J^J-^'^■ 


J i/u rorib dnu L 


vnancinn IPI 


AS ano VIM) locjoaz-u 1 Hoaj 










Keyboard PIA (59408-59411) 


59408 


E810 


233 


E9 


I/O Port A and Data Direction register 


59409 


E811 


60 


3C 


Control Register A — screen blanking 










52 = Screen off (blanked) 










60=Screen on 


59410 


E812 


255 


FF 


I/O Port B and Data Direction register 










255=all keys except: 










254=RVS key 










2 53= key 










251=SPACE key 










247= < key 


59411 


E813 


61 


3D 


Control Register B — #1 cassette motor 










53=motor on 










61 = motor off 










IEEE Port PIA (59424-59427) 


59424 


E820 


255 


FF 


I/O Port A and Data Direction register 










PEEK (59424) reads input data. 


59425 


E821 


188 


BC 


Control Register A — set output line CA2 










POKE 59425.52=low 










POKE 59425,60=high 


59426 


E822 


255 


FF 


I/O Port B and Data Direction register 










POKE 59426,data writes output data 










POKE 59426,255 before a read to Port A 


59427 


E823 


60 


3C 


Control Register B — set output line CB2 










POKE 59427,52 = low 










POKE 59427,60=high 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 










Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










Parallel User Port VIA 










(59456-59471) 


59456 


E840 


254 


FE 


I/O Port B 
207 = #2 cassette motor on 
223= #2 cassette motor off 
WAIT 59456,23,23 waits for vertical 
retrace of display 

Bit 1 =PB1 (NFRD on IEEE connector) out- 
put line 

Bit 3=PB3 (ATN on IEEE connector) out- 
put line 


59457 


CQ/l 1 


Zoo 


pp 


I/O Port A with handshalcing 


59458 


E842 


30 


IE 


Data Direction register for I/O Port B 


59459 


E843 





00 


Data Direction register for I/O Port A 
For each bit 1 =output, 0=input 
=0 all input 
=255 all output 


59460-59461 


E844-E845 


25248 


62A0 


(Low, high order) Read Timer 1 Counter: 
write to Timer 1 Latch and (high byte) 
initiate count 


59462-59463 


E846-E847 


65381 


FF65 


(Low, high order) Read Timer 1 Latch 


59464 


E848 


113 


71 


Read Timer 2 Counter low byte and reset 
interrupt; write to Timer 2 low byte 
PEEK (59464) Clock decrements every 
microsecond 

POKE 59464,n sets SR rate of shift from 
high (n=0) to low (n = 255) for music 
from User Port. 


59465 


E849 


200 


C8 


Read Timer 2 Counter high byte; write to 
Timer 2 high byte and reset interrupt, 
PEEK (59465) Clock decrements every 
millisecond 


59466 


E84A 


1 


01 


Serial I/O Shift register (SR) 
POKE 59466,15 or 51 or 85 to generate 
square wave output at CB2 for playing 
music from User Port. 


59467 


E84B 


Q 


00 


Auxiliary Control register. 
= 16 Sets SR to free-running mode for 
music from User Port. 
=0 for proper operation of tape drive 


59468 


E84C 


14 


OE 


Peripheral Control register 
= 12 for graphics on shifted characters 
= 14 for lower-case letters on shifted 
characters 


59469 


E84D 





00 


Interrupt Flag register 


59470 


E84E 


128 


80 


Interrupt Enable register 


59471 


E84F 


255 


FF 


I/O Port A without handshaking 






Page 241-256 Operating System (61440-65535) 


61622-61904 


F0B6-F1D0 






File Control 

Starting Address Function 


61905-63532 


F1D1-F82C 






61905 F1D1 Get a character 
(without cursor) 

61921 F1E1 Input a character 
(with cursor) 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimsl 


Hexadocimal ' 


Decimal 


Hexadecimal 














62002 


F232 


Display a character 














62026 


F24A 


Close all files 














62121 


F2A9 


CLOSE 














62250 


F32A 


STOP search 














62278 


F346 


Tape playbacK 














62402 


F3C2 


LOAD 














62481 


F411 


Display filename 














62515 


F433 


Fetch file number 














62556 


F45C 


Number fetch 














62647 


F4B7 


VERIFY 














62724 


F504 


Fetch filename 














62741 


F515 


Fetch tape character 














62753 


F521 


OPEN 














62824 


F568 


Record SAVE routine 














62894 


F5AE 


Tape header search 














62947 


F5E3 


Clear current tape 


















buffer 














62957 


F5ED 


Write tape end block 














63101 


F67D 


Set up tape end 


















pointer 














63108 


F684 


SYS 














63134 


F69E 


SAVE 














63153 


F6B1 


SAVE memory block 


















on cassette 














63273 


F729 


Update secondary 


















jiffy clock 


63533-64789 


F82D-FD15 














Tape Control 














63582 


F85E 


Check for cassette on 














63615 


F87F 


Tape read to buffer 














63684 


F8C4 


Write block to tape 














63765 


F915 


Interrupt wait 


64824-65458 


FD38-FFB2 












Power-On Diagnostics 














64824 


FD38 


System reset 


















SYS (64824) simu- 


















lates power-on reset 














64909 


FD8D 


Reset BASIC (does 


















not affect User Pro- 


















gram) 














64912 


FD90 


EOT-buffer compare 


Db4/-i-D0tl ID 


rrCU-rrtC 














Jump Vectors 




rrL.U-rrL.Z 


76 


62753 


4C 


F521 


JMP OPEN 








76 


62121 


4C 


F2A9 


JMP CLOSE 




Ob4o /-oo4oy 


rr^r-rrU I 


76 


61921 


4C 


F1E1 


JMP RDT 




Db4yu-DD4yz 




76 


62002 


4C 


F232 


JMP WRT 




65493-65495 


FFD5-FFD7 


76 


62402 


4C 


F3C2 


JMP LOAD 




65496-65498 


FFD8-FFDA 


76 


63134 


4C 


F69E 


JMP SAVE 




65499-65501 


FFDB-FFDD 


76 


62647 


4C 


F4B7 


JMP VERIFY 




65502-65504 


FFDE-FFED 


76 


63108 


4C 


F684 


JMP SYS 




65508-65510 


FFE4-FFE6 


76 


61905 


4C 


F1D1 


JMP GETC 




65514-65516 


FFEA-FFEC 


76 


63273 


4C 


F729 


JMP Clock Update 


65530-65535 


FFFA-FFFF 












6502 Interrupt Vectors 


65530-65531 


FFFA-FFFB 




51808 




CA60 


Non-maskable interrupt (NMD 


65532-65533 


FFFC-FFFD 




64824 




FD38 


System reset (RESET) 


65534-65535 


FFFE-FFFF 




58987 




E66B 


Interrupt request, break (IRQ-FBRK) 
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APPENDIX H 



PET Features 



Features of PET BASIC 

Calculator/program modes 

8 commands 

26 statements 

29 functions 

Extended BASIC features 

Strings 

ASCII character representation 

Number representation; Floating point (5 bytes) 

Integer (2 bytes) 
To 9 or 10 significant digits 

Variables up to 255 cfiaracters, 2 characters significant 

Mix of 40 and 80 character source lines 

Expression evaluation for statement and function parameters 

Fully programmable graphic keys 

Fully programmable cursor control keys 

Arrays of any dimensions 

Line editor 

Add line 

Delete line 

Change line 
Programmed breaks 
Nested subroutines up to 26 
Tape read/write under program control 
Program overlay capability 
PEEK/POKE to load/store memory bytes 
Programmable system clock for time of day 
Machine language interface 
Fully programmable external I/O capability 
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Operational Features 


Chassis 


Portable, self-contained 
Steel cabinet 
44 pounds 

le'A" wide. ISVa" deep, 14" high 
I/O connectors for: 

8-bit parallel I/O port 

IEEE 488 interface 

Tape cassette unit 




IVI^O UtJv^ lltlUIU[JI (JUC^olJI 


Memory 


4K, 8K, 16K, 32K bytes RAM user memory (4K no longer available) 
Programmable IK screen memory 
14K bytes ROM memory 

Resident BASIC interpreter and operating system 
2K Input/Output 

Expansion ROM 12K additional, total ROM 26K 
Expansion RAM (up to 28K) additional, total RAM 32K 


Keyboard 


Compact keyboard has 73 keys, 2/3 conventional size 

Full-size keyboard has 74 keys including Shift Lock 

140 characters/functions 

2 shift keys 

26 alphabetic keys 

Numeric pad 

28 special symbols 

ASCII characters and symbols all unshifted 
62 graphic keys 
Graphic keys all shifted 
Reverse-field video characters 
Alternate programmable character set 
6 cursor control functions 
Key editing 

Replace characters 

Insert characters 

Delete characters 
Program load and go/stop key 


Video Display Screen 


9" (22.86 cm) high-resolution screen 

1000 character display, 25 lines by 40 characters 

8x8 dot matrix 

Full cursor control 


Tape Cassette Unit 


Built into PET console or externally connected 
Uses standard audio magnetic tape cassettes 
Four tape control keys: 

Play, Fast Forward, Rewind. Record 
Programmable Tape Read/Write 
1000 baud optimal 
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Index 



ABS function, 150 
Add a line. 100 
Addend. 190 
Addition, 63, 190 
Alphabet, BASIC, 53 
Alternate character set. 12 
AND. 66-68 
Animation, 232 
Array Header, 322 
Arrays 

dimensions, 69 

size, 70 
Array storage format, 322 
ASC function. 156 
ASCII. 188, 326 

Assembly Language Programming, 329 
Assignment statement, 52 
ATN function. 150 
Augend, 190 
BASIC, 3 

BASIC commands 
CLR, 83, 112 
CONT, 83, 112 
LIST, 83, 98, 101, 113, 1 14 
LOAD, 74, 83, 100. 114 
NEW, 83, 117 
RUN, 83, 117 
SAVE, 83, 98, 119 



VERIFY, 84, 120 
Byte, 5 

Calculator mode, 47, 48, 84 
Cassette tape controls, 35 

Fast Forward, 35 

Play, 36 

Record, 35 

Rewind, 35 

Stop, 36 
Cassette tape drive, 32, 33 
Cassette tape unit, hookup. 8 
Cassette tapes 

care of. 39 

pre-programmed. 3. 74 
CHR$ function, 105. 156. 188 
CLEAR SCREEN/HOME key. 25. 26, 96 
CLOSE statement, 82, 123 
CLR command, 83, 112 
CMD statement, 82, 124 
Concatenating strings, 90, 180 
Console input/output 

GET. 81 

INPUT. 81 

PRINT. 80 
Constants, 320 
CONT command, 112 
COS function, 150 



427 



Cursor blink enable, 106 
CURSOR LEFT/RIGHT key, 27, 28 
CURSOR UP/DOWN key, 26. 27, 51 

Data block, 251 

Data conversions, 143 

Data file, 74 

DATA statement, 80, 125 
Decision making 

IF. . . THEN. 80 

ON. . . GOSUB. 80 

ON. . . GOTO. 80 
DEE FN. 164 
Defining data 

DATA. 80, 125 

DIM, 80, 126 

LET. . 80 

READ, 80 

RESTORE, 80 
Delete a line, 100 
DELETE key, 107 
Degmagnetizer, 38, 39 
Dimension statement, 71, 80, 126 
Direct mode, 47 
Division, 64 

Editing, screen. 49 
Elements, BASIC, 53 
END statement, 127 
End-of-file mark, 123, 242 
End-of-tape mark, 123, 241 
EXP function, 151 
Exponentiation, 64 

Field, 232 

Field separator, 96 

File input/output 

CLOSE, 82 

CMD, 82 

GET#, 82 

INPUT*, 82 

OPEN, 82 

PRINT*, 82 
File names, 141 

length, 74 

matching, 74 
Files 

data, 232 

program, 232 
Floating Point Array Element Format, 323 
Floating point numbers, 53 
FOR . NEXT statement, 79, 127 
FRE function, 161 
Functions, arithmetic group 

ABS, 71 

ATN, 72 

COS, 72 

EXP, 71 

INT, 71 

LOG, 72 

RND, 72 

SIN, 72 

SGN, 71 

SQR, 71 

TAN, 72 
Functions, BASIC, 71 

arguments, 71 
Functions, format group 



POS, 73 

SPC, 73 

TAB, 73 
Functions, string group 

ASC, 72 

CHR$, 72 

LEFTS, 72 

LEN, 72 

MID$, 72 

RIGHTS, 72 

STRS, 72 

VAL, 72 
Functions, system group 

FRE, 73 

PEEK, 73 

SYS, 73 

Tl$, Tl, 73 

USR, 73 
Functions, user-defined, 73 

GET statement, 81, 103, 129 
GET* statement, 82, 130 
GOSUB/RETURN statement, 79 
GOSUB statement, 131 
GOTO statement, 79, 131 
Graphic character set, 255 
Graphic keys, 1 3 
Graphic mode, 255 
Graphics, 255 

HOME key, 51 

IR . THEN statement. 80. 132 
Immediate mode. 47. 78. 84 
INPUT statement, 81, 133, 202 
INPUT* statement, 82, 134 
INSERT/DELETE key, 29, 30, 107 
INT function, 1 51 

Integer Array Element Format, 323 
Integer Variable Format, 319 
Integers, 57 

Interpreter, PET BASIC, 1, 77, 107, 310 
Item separators, 182, 247 

K, 5 

Key Groups 

Alphabetic, 15 

Cursor control, 25-30 

Function, 21-25 

Graphic, 13, 19, 20 

Numeric, 1 5 

Serial symbols, 16-18 
Keyboard 

Compact, 11,12 

Full size, 11,13 
Keyboard rollover, 167-173 
Keywords, 312 

LEFTS functions, 156, 184 

LEN function, 157, 200 

LET = statement, 80, 135 

Line editor, 310 

Line numbers, 76, 84, 85 

LIST command, 83, 98, 101, 113, 1 14 

LOAD command, 73, 74, 83, 100, 114 

LOG function, 152 

Logical file number, 138, 139 

Memory Map, 308 



MID$ functions, 157, 184, 200 
Minuend, 202 
Multiplication, 64, 215 

NEW command, 1 17, 315 

NOT, 66-68 

Numbers 

floating point, 53 

integer, 57 

magnitude, 54, 56 

roundoff, 54 

scientific notation, 54, 143 

ON, GOSUB statement, 80, 136 
ON, , GOTO statement, 80, 136 
OPEN statement, 82, 137 
Operators 

aritfimetic, 62 

Boolean, 66 

hierarchy, 65 

relational, 65 
OR, 66-68 

PEEK function, 162 
PET Models, 3, 4 5 
CBM, 7 

Model 2001-8, 7 

Model 2001-16, 7 

Model 2001-32, 7 
Physical device number, 140 
PLAY key, 116 
Pointer, 308 

POKE statement, 82, 143 
PCS function, 159 
PRINT formats, 86 

continuous, 86, 98, 144 

line, 86, 144 

tabbed, 93, 144 
PRINT statement, 58, 80, 86, 143, 185 
PRINT, syntax, 47 
PRINT* statement, 82, 145 
Printer/screen concatenation, 182 
Program mode, 76, 84 
Program storage, 74 
Program termination 

END, 83 

STOP, 83 

WAIT, 83 
Programmed cursor control, 96, 186 

RAM, 2, 5 

expansion, 306 

video, 307 
RAM devices, 42 

removal from PET, 44 
Random numbers, 153 
READ statement, 80, 146 
Read-Only Memory (ROM), 2 
Read/Write Memory (RAMI, 2, 74 
READY message, 105 
REM statement, 82, 147 
Replace a line, 100 
Reserved words, 62 
RESTORE statement, 80, 148 
RETURN key, 21, 22 
RETURN statement, 148 
REVERSE ON/OFF key, 22 
RIGHTS function, 158, 184, 194 
RND function, 153 



Rollover, 167-173 
ROM, 2, 5 

expansion, 307 
ROM devices, 43 

new, 5 

old, 5 
RoundofT 54 

RUN command, 83, 98, 101, 117 
RUN/STOP key, 23-25 

SAVE command, 83, 98, 119 

Scientific notation, 54, 143 

Screen display, 31 

Screen memory, 327 

Secondary address code, 140 

SGN function, 154 

SHIFT key, 21 

SHIFT LOCK key, 21 

SIN function, 154 

6502 microprocessor, 303 

SQR function, 155 

ST function, 162 

Standard character set, 12 

Statement separators, 84, 98 

Statements, BASIC, 78, 123 

STATUS WORD command (ST), 242 

STOP key, 103 

STOP statement, 148 

STR$ function, 158 

String Array Element Format, 323 

Strings, 57, 144, 180 

alphabetic, 182 

concatenating, 1 80 

graphic, 182 

numeric, 182, 183 
String Variable Format, 320 
Subtraction, 63, 202 
Subtrahend, 202 
SYS function, 163, 331 

TAB function, 160 

TAN function, 155 

Tape head demagnetizer, 38, 39 

Terminal Interface Monitor, 331 

Tl function, 163 

Tl$ function, 163 

Time Delay, 232 

Typeover, 107 

Unconditional branches 
FOR, , NEXT, 79 
GOTO, 79 

GOSUB/RETURN, 79 
User-defined function, 73, 164 
User Program Area, 315 
USR function, 163, 331, 332 

VAL function, 158, 193, 199 
Variables, 14, 58, 317 

display, 49 

floating point, 60 

integer, 60 

name, 14, 59, 61 

string, 61 

value, 14, 59 
VERIFY command, 84, 120 

WAIT statement, 149 
Write protect, 40 
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